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FOREWORD 


This report is submitted in three volumes to the National Aero- 
nautics and Space Administration, Marshall Space Flight Center, 
in partial fulfillment of the requirements of Contract NAS8- 
29622. 

The objective of this contractual effort has been to define per- 
formance requirements, preliminary designs, and development 
program plans for an airborne recovery system for the Space 
Shuttle Solid Rocket Booster, with minimum total program costs 
being the primary selection criterion. 

Volume I, entitled Technical Report, Space Shuttle Solid Rocket 
Booster Recovery System Definition, contains the results of all 
analyses performed during the study term to define the performance 
requirements, preliminary designs, and development program plans 
for the SRB Recovery Subsystem. 

Volumes II and III contain user's instructions for two computer 
programs developed in support of the contract technical studies. 
Volume II is entitled Solid Rocket Booster Water Impact Mcnte 
Carlo Computer Program and Volume III is entitled Solid Rocket 
Booster Water Impact Loads Computer Program . 
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SUMMARY 


This user's manual describes the FORTRAN IV computer program 
developed to compute the total vertical load, normal concentrated 
pressure loads, and the center of pressure of typical SRB water 
Impact slapdown pressure distributions specified in the baseline 
configuration. Preliminary Water Impact Loads for the Space 
Shuttle Solid Rocket Booster (SRB) t dated 11 April, 1973. 

The program prepares the concentrated pressure load information 
in punched card format suitable for input to the STAGS computer 
program. In addition, the program prepares for STAGS input the 
inertia reacting loads to the slapdown pressure distributions. 
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NOMENCLATURE 


C A 

C ANbLE 
C ANIL 
C ANL 
C ATIL 
C AVL 
C AWA 
C CP 
C CPR 
C CkSH 
C 0 

c uc 

C DCPR 
C DHPR 
C l)L 
C DPN 
C OVSD 
C DMA 
C OMSK 
C DX 
C DY 
C HC 
C HPR 
C HV 
C KO 
C LA 
C LP 
C NC 
C NCDP 
C NLDP 
C NNX 
C NNY 
C NR 
C NSEGX 
C NSEGY 
C PCR 
C PI 
C PL 
C PMAX 
C PN 
C R 

C REACT 
C RL 
C StGLX 
C SEbLY 
C STRAP 
C STVIL 
C STVL 
C STVLXC 
C S2TVL 
C T 

C THETA 
C TL 
C TNT 
C TV IL 
C TVL 
C TVLXC 


DEGREE TO RADIAN CONVERSION 

iso less Inclusive angce/z over mhich Rt act ing strap bears 

NORMAL INERTIA LOAD COMPONENT AT A NODE 
NORMAL LOAD AT MESH POINT 

TANGENTIAL INERTIA LOAD COMPONENT AT A NODE 
VERTICAL COMPONtNT OF NORMAL LOAD 
METTEO ANGLE AT MESH POINT 
CENTER OK PRESSURt 

RADIAL PRESSURE DlSlRldUlION CURVt 2 (METTEO ANGLE tUUAL 90) 

METTEO SURFACE RATIO OF YCORD IN MESH 

VEHICLE DlAMETtR 

INCREMENTAL LENGTH IN StOMENT Y 

INCREMENTAL PRESSURt RATIO FOR CURVE 2 

INCREMENTAL PRESSURE RATIO FOR CURVE I 

INCREMENTAL LENGTH lN SEGMENT X 

INCREMENTAL PRESSURE 

INCREMENTAL VEHICLE STATION 

INCREMENTAL METTEO ANGLE 

INCREMENTAL METTEO SURFACE RATIO 

INCREMENTAL DISTANCE ALONG X COORDINATE 

INCREMENTAL DISTANCE ALONG Y COORDINATE 

PORTION OF VEHICLE CIRCUMFERENCE 

RADIAL PRESSURt DISTRIBUTION CURVE 1 (METTEO ANGLt LESS 90) 

HORIZONTAL VELOCITY 

CODE FOR DESIRED OUTPUT (0*1* OR 2) 

CODE FOR SHAPE OF PHESSUHE CURVE (0 UR 1) 

CODE FOR SHAPE OF MtTTED ANGLE CURVE (0 OR l) 

NUMBER OF COLUMNS ALONG Y COORDINATE DIRECTION 
NUMBtR OF CIRCUMFERENTIAL DATA POINTS FOR PRtSSURE 
NUMBER OF LONG I UUINAL DATA POINTS FOR KEEL P -SSURt 
NUMBER OF SEGMENTS IN X DIRECTION NlTH CONSTANT SPACING 

NUMBER OF SEGMENTS IN Y OIKLCTIOn WITH CONSTANT SPACING 

NUMBER OF ROMS ALONG X COOROINATt DIRECTION 
NUMBER OF MESH SPACtS MITHIN SEGMENT X 

NUMBER OF MESH SPACtS MIThIN SEGMENT Y 

PRESSURE RATIO OF YCORD IN MESH AT A LONGITUDINAL STATION 
PI 

PRESSURE AT YCORD IN MESH 
MAXIMUM PRESSURE 

NORMALIZED PRESSURE AT A VEHICLE STATION 
VEHICLE RADIUS 

UNIFORM STRAP BEARING LOAD AT A LONGITUDINAL STATION 

AVERAGE PEAK RUNNING LOAD AT A LONGITUDINAL STATION 

LEN6TH OF SEGMENT IN X DIRECTION 

ANGLE OF SEGMENT IN Y DIRECTION 

STRAP TENSION LOAD AT A LONGITUDINAL STATION 

TOTAL VERTICAL INERT I A LOAD ON VtHICLE 

HALF OF TOTAL VERTICAL PRESSURE LOAD ON VEHICLE 

TOTAL FIRST MOMENT OF VERTICAL PRESSURE LOAD ON VtHICLE 

TOTAL VtRTICAL LOAD ON VEHICLE DUt TO PRESSURE 

TIME POINT NUMBER 

INCLUSIVE ANGLE USED IN VtHICLE MODEL (90 OR 160) 

TOTAL X LENGTH 

TOTAL NUMBER OF TIMt POINTS 

TOTAL VERTICAL lNtRTIA LOAD AT A VEHICLE STATION 

TOTAL VERTICAL PwtSSURE LOAD AT A VEHICLE STATION 

FIRST MOMENT OF TOTAL VtRTICAL PRESSURt LOAD AT A STATION 
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NOMENCLATURE (CON-TO) 


C Ub UNBALANCE BETWEEN PRESSURE AND INERTIA LOADING 

C VIL VERTICAL INERTIA LOAO AT A MESH POINT 

C VL VEHICLE LENGTH 

C VSD NON ‘DIMENSIONAL VEHICLE STATION IN DIAMETERS 

C VV VEHTICAL VELOCITY 

C WA WETTED ANGLE AT A VEHICLE STATION 

C WSR WETTED SUWFACt RaTIo 

C XCOHD X-COORDINATE OE MESH POINT 

C XPN MAX PRESSURE AT A ROW IN MESH 

C XWA AVERAGE WETTED ANGLE AT A ROW IN MESH 

C YCORD Y-COORDINATE OE MtSH POINT 
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1 . 0 PROGRAM DESCRIPTION 


The program is designed to prepare point load cards that are 
representative of an arbitrary SRB water impact slapdown pres- 
sure distribution. The punched load cards are in a format com- 
patible for use in the STAGS shell analysis program. 

The program will compute in a single run the loads for an un- 
limited quantity of slapdown pressure distributions on any size 
vehicle. 

The program utilizes as part of its input mesh definition cards 
identical to those required for STAGS input. The program then 
generates for an arbitrary mesh the normal point loads repre- 
sentative of the slapdown pressure distribution* In addition, 
the total vertical load aud its center of pressure (relative to 
the initial vehicle station) on the vehicle are calculated. 

The inertia reacting loads are calculated so as to balance the 
total vertical pressure load at each incremental vehicle station. 
The net normal and tangential load components are then computed 
for each mesh point in a format compatible for use in the STAGS 
computer program. 

There are essentially 16 steps required to obtain a set of loads 
for each time point or slapdown pressure distribution. These 
are: 

1) reading data points required to describe the normalized 
pressure and wetted angle curves; 

2) reading data to descrioe each time point and vehicle parameter; 

3) dimensionalizing pressure versus vehicle station curve; 

4) calculation or reading of X-coordinate data; 

r calculation or reading of Y-coordinate data; 

6) calculation of increments in vehicle length, pressure, and 
wetted angle data; 

7) calculation of maximum pressure and wetted angle for each X- 
coordinate in mesh; 
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8) calculation of average peak running load for each X-coordinate 
in mesh; 

9) calculation of average wetted angle for each X-coordinate in 
mesh; 

10) calculation of incremental values for the two nc.idimensional 
radial pressure distribution curves; 

11) calculation of wetted surface ratio, pressure ratio, and 
value of radial pressure loading at each mesh point; 

12) calculation of equivalent normal pressure load and its ver- 
tical component at each mesh point and the total vertical 
pressure load for each incremental longitudinal station; 

13) calculation of vertical inertia load and its normal and 
tangential component at each mesh point and the total ver- 
tical inertia load (equal and opposite to the total vertical 
pressure load) for each incremental longitudinal station; 

14) calculation of net normal and tangential load components at 
each mesh point; 

15) calculation of total vertical pressure load, its center of 
pressure, and any unbalance between the total vertical 
pressure and inertia load; 

16) punched or written output of the net normal and tangential 
load components for each mesh point. 
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2.0 


GENERAL NOTES 


A portion of the program nomenclature is illustrated in Figures 
2-1 and 2-2. The program assumes collapse pressures to be posi- 
tive in value, and the vehicle model coordinate system to be as 
noted in Figure 2-2. 

Since the program uses a linear integration scheme, the accuracy 
in the loads data will generally be a function of the mesh density. 
(Loads generally are more accurate for a denser mesh.) Also, to 
further Improve the accuracy, the normalized data points used to 
describe the keel pressure and wetted angle curves should have 
the same vehicle station or X-coordinate as a mesh point. In 
addition, the LA-LP option code allows either a tapered or stepped 
shaped wetted angle and keel pressure distribution curve to be 
used. (See Example Problems 1 and 2.) 

The program will use up to two normalized radial pressure distri- 
bution curves. Curve 1 should be used if the wetted angles are 
less than 90 deg, and Curve 2 should be used if the wetted angles 
are equal to 90 deg. 

Depending upon the specified value of K0, the program will then 
calculate only the normal pressure loads, the net pressure and 
uniform inertia relief loads, or the normal pressure loads and 
the reacting strap normal bearing loads. 
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Figure 2-1 Program Nomenclature for the 
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Figure 2-2 Program Nomenclature for the cle Parameters and Load Calculations 


3.0 


DATA CARDS 


As basic input data for each pressure distribution or time point, 

the following data cards are required. 

For Each Hun 

1) Total number of uxme points or pressure distributions 
(REQUIRED) ; 

For Each Time Point 

1) Number of data points (20 max) required to properly define 
the normalized keel slapdown pressure distribution and 
wetted angle curves as a function of the normalized vehicle 
station, and the number of data points (20 max) required to 
define the two normalized radial slapdown pressure distri- 
bution curves (REQUIRED) ; 

2) Maximum keel pressure and wetted angle versus X-sta^ion 
curve data (REQUIRED) ; 

3) Radial pressure ratio versus wetted surface ratio curve data 
(REQUIRED) ; 

4) Value of maximum slapdown pressure, number of time points, 
vertical and horizontal velocity, vehicle radius and length, 
and total angle used in STAGS model (REQUIRED) ; 

5) Number of rows (100 max) and columns (37 max) in mesh 
(REQUIRED) ; 

6) X-courdinate cards (OPTIONAL) ; 

\ 

7) X-segment card (OPTIONAL); 

8) X-segment l/ngths definition cards (OPTIONAL); 

9) X-segment spacing definition cards (OPTIONAL) ; 

10) Y-coordinate cards (OPTIONAL); 

11) Y-segment card (OPTIONAL); 

12) Y-segment lengths definition cards (OPTIONAL); 

13) Y-segment spacing definition cards (OPTIONAL). 
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3.1 


INSTRUCTIONS FOR CODING CARDS 


For Each Run 

1) Control card 
Format (F10.5) 

*CCN|1 10 I 

I- TNT I 

For Each Time Point 

1) Control card for slapdown pressure and wetted angle curves 
and type of punched output desired. 

Foraat (515) 


CCN 

1 5 

6 10 

11 15 

16 20 

21 25 


NLDP 

NCDP 

LA 

LP 

K0 


(20 max) 

(20 max) 





LA * code for shape of wetted angle curve 
0 * tapered loading 
• 1 stepped loading 


LP 3 code for shape of pressure curve 

0 “ tapered loading 

1 * stepped loading 

KD ■ code for punched loads output 

0 * normal pressure loads only 

1 « net pressure and uniform inertia relief loads 

2 « normal pressure and strap bearing loads 

2) Keel pressure and wetted angle versus X-station curve data 
Format (6 F10.5) 


CCN 

1 10 

11 20 

21 30 

31 40 

41 50 

51 60 


VSD 

WA 

PN 

VSD 

WA 

PN 


*CCN stands for card column number 
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3) 

Radial pressure ratio versus wetted 
Format (6 F10.5) 

surface 

ratio 

curve data 

CCN 

1 10 

11 20 

21 30 

31 40 

41 50 

51 

60 



WSR 

HPR 

CPR 

WSR 

HPR 

CPR 


4) 

Pressure, time point, velocity, and vehicle i 
Format (8 F10 . 5) 

data 



CCN 

1 10 

11 20 

21 30 

31 40 

41 50 

51 

60 

61 70 


PMAX 

T 

W 

HV 

R 

VL 


THETA 


71 b». 









ANGLE 








5) 

Control card defining mesh size 
Format (215) 





CCN 

1 5 

6 10 








NR 

(100 max) 

NC 

(37 max) 







6) 

X-coordinate data 
Format (8E10.6) 







CCN 

1 10 

11 20 

21 30 

31 40 

41 50 

I 51 

60 

61 70 

i 

XCORD 

i _ . . i 

XCORD 

XCORD 

XCORD 

XCORD 

XCORD 

XCORD 


71 80 

XCORD 


7) Control card for X-segments 
Format (15) 


CCN 


1 


5 


NNX 
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8) X-segment length data 
Format (8E10.6) 

CCN |l 10 11 20 21 30 31 40 41 50 51 60 61 70 

SEGLX SEGLX SEGLX SEGLX SEGLX SEGLX SEGLX 
71 80 

SEGLX 


9) X-segment spacing data 
Format (1615) 


CCN 

1 5 

6 10 

11 15 


NSEGX 

NSEGX 

NSEGX 


10) Y-coordinate data 
Format (8E10.6) 


CCN 1 1 10 11 20 31 30 31 40 41 50 51 60 61 70 

YCOKD YCORD YOORD YCORD YCORD YCORD YCORD 

71 80 

YCORD 

11) Control card for Y-segments 
Format (15) 

CCN 1 5 

NNY 

12) Y- segment length data 
Foirmat (8E10.6) 

CCN | 1 10 11 20 21 30 31 40 41 50 51 60 61 70 

SEGLY SEGLY SEGLY SEGLY SEGLY | SEGLY SEGLY 

71 80 

SEGLY 
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13) Y-segment spacing data 
Format (1615) 


CCN 

1 5 

6 10 

11 15 


NSEGY 

NSEGY 

NSEGY 
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4.0 


SAMPLE PROBLEMS 


The following sample problems are given to illustrate the input 
and output of the water impact loads program. 


4.1 SAMPLE PROBLEM 1 


The problem was designed to show the input and partial output for 
a keel slapdown pressure distribution typical of those shown in 
the baseline water impact loads document (4/11/73). The normal- 
ized pressure and wetted angle curves are shown in Figures 4-1 
and 4-2. 


4.2 SAMPLE PROBLEM 2 


The problem was chosen to illustrate the input and partial output 
for a keel slapdown pressure distribution like that simulated on 
the 120-in. diameter test specimen. The normalized pressure and 
wetted angle curves are shown in Figures 4-3 and 4-4. 


4.3 PROGRAM LISTING 


A complete listing of the FORTRAN IV program is given to aid in 
illustrating the integration steps used to obtain a set of loads. 


4.4 THREE SUPPLEMENTAL PROBLEMS 


Three supplemental problems were also run to generate the punched 
load cards representative of a slapdown pressure distribution of 
the same general shape as that simulated on the 120-in. diameter 
test specimen. However, the peak pressures were reduced from 
those in Sample Problem 2 and the location of the distribution 
was varied. (See listing of input data cards on page 65. For a 
listing of the normal concentrated pressure loads for each supple- 
mental problem, see page 66.) The punched cards are in a format 
suitable for use in the 90-deg STAGS model of the 120-in. diameter 
static test specimen. In addition, the total vertical pressure 
load and its center of pressure are punched as a card for each 
distribution. 
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PRESSURE RATIO 
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Figure 4-3 normalized Keel Pressure and Wetted Angle Distribution for Example Problem 



PRESSURE RATIO 




LISTING OF INPUT DATA GAUDS FOR EXAMPLE PROBLEMS 1 AND 2 


3.0 

10 6 

0 ) 

1 

0.0 

0.0 

0.0 

3,52113 

30,0 

0.5 

3.0020? 

50.9 

0.63 

5,0 

90.0 

0.04 

r.o 

90.0 

9.0 

0,0 

1.0 

l.C 

0.4 

0.45 

0.6* 

0.0 

0.06 

0.1? 

20.0 

1*0 

60.0 

72 19 

3 10 

1 t 

1 

0.0 

0.0 

0.0 

6,96001 

60.0 

0.17770 

0.0 

1.0 

o.e 

0,22222 

0.9396) 

0.0 

0.44444 

0.76604 

0.0 

3.66666 

0.5 

o.c 

0.50000 

0.17365 

o.c 

45,3 

2.0 

oQ.C 

49 IP 




3,30 906 

0.0 

0.0 

3.59155 

35.0 

1.0 

4.19014 

53.0 

0.26 

6.0 

90.0 

0.0 

10 .0 

90.0 

0.97 

0.2 

0.6? 

0.9 

0.6 

0.16 

0.34 

l.C 

0.0 

0.0 

60. C 

71.0 

142040 


3.47999 

15.0 

1.0 

C. 11111 

0.96491 

0.0 

0.33333 

0,56603 

0.0 

C. 55555 

0.64279 

0.0 

0 « 77777 

0.34202 

0.0 

1.0 

0.0 

0.0 

60 . C 

60.0 

535,2 


180.0 


90.0 
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LISTING 1>F net normal AND 1ANGLNT1AL LOADS FUh EXaMKLL RKObLLM 1 
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1310. 09*9* 

170. 3CCC0 

-180.05437 

-31.74844 

1*** 3 • PI J ?0 

i^o. :co*c 

-91.91600 

• 090 OG 

13 * 0 . 0 * 00 * 

c. 

-756.C9??1 

*. 

i??Q.aci!i? 

10 . cnr c 

-685.34727 

-33.82350 

?*3?0 

*a.*tooc 

-615.09525 

-66.61920 

132C.OeOO? 

70. 0C3CC 

-512.716C8 

-97.35390 

1320.0*3*0 

4c.iccce 

-38». 23^75 

-125.20333 

1333. €5005 

5 *• CCOCC 

-263.23735 

-149.21151 

132$. 0030* 

63. CtQCC 

-156.0913* 

-168.6859® 

172C.0*?*C 

7C.3C3CP 

-78.49530 

-183.03502 

r'20.09090 

93.0 COO* 

-33.95580 

-191.82262 

1323.00300 

04 . croc* 

-15.92989 

-194.78180 

1VO.O&90* 

1 3C.0CC0C 

-33.82350 

-191. *2*6? 

132C.OC300 

110.CCCCC 

-66.61939 

-183.03502 

1320,80000 

12*.SC94* 

-97.39090 

-160,68599 

1^29.00309 

1 30. CC9C0 

-125.20333 

-149.21151 

1320.0**C3 

140. OCOCC 

-19«.!»ii«;i 

-125.20323 

13*3.00000 

150.GCGCO 

-16B.KS599 

-92.39090 

1320.0*303 

160 • C£* 00 

-183.03502 

-66.61930 

1320. *033* 

170. CCOCC 

-191 • *2262 

-33.82350 

1320.00000 

iso.cro*o 

-97.39890 

•00000 

1340.03300 

*. 

-377.97e36 

0. 

i?4Q,acaoo 

10.0CG0* 

-727.33887 

-35.89657 

1340.0300* 

20. CCC*0 

-652.83116 

-70.70637 

134 C. 03 000 

33.CC300 

-593.74651 

-193.36580 

134 C. 03300 

40. CC06* 

-912.04859 

-13?. 98451 

1340.0300? 

50. CtOGC 

-279.38588 

-158.36559 

1343.003*3 

6c. croco 

-165.61847 

-179.0348? 

1 ^4 0. 03901 

79.3CCQC 

-83.31096 

-194.26416 

1 34 0.00030 

60.COCCO 

-32.85917 

*20 3. 69? 98 

134C.OC330 

90. CCOCC 

-16.37651 

-206.73160 

1*40. *3300 

100.0C900 

-35*89857 

-203.550 88 

1340. *C 30* 

110. CCOCC 

-78.70637 

-194.26416 

1340* C0003 

12C. CCOCC 

-103.36580 

-179.93482 

134^.00303 

139. OCOCC 

-132.88951 

-158.36559 

1340, C130? 

14C.QCQ0C 

-158.36559 

-132.88451 

1343.030*0 

15*. CCOCC 

-179.03982 

-103.36500 

<340.0313? 

1 69* CCOCC 

-199.26916 

-70.70637 

1340.00000 

17O.OC0C6 

-203.59088 

-35.09857 

1340.0033* 

loo.crcor 

-103.36550 

.ocooo 

1360.03330 

0. 

-399.78951 

0 » 

1360,0030* 

13. CtCCO 

-769.63997 

-37.97363 

1360.0*0*0 

20. CCOCC 

-690.56786 

-74.79345 

1360.03000 

30.0CCOC 

-575.17695 

-109.34070 

1360.00300 

40. OCOOC 

•935.86693 

-140.56570 

1360,00309 

50.0C90C 

-296.53691 

-167.51966 

1760,09000 

60.CCOCC 

-175.18756 

-169.36365 

136 0. C *300 

70.0C000 

-88.12662 

-205,49330 

1 3r 0.9099* 

00. OCOOC 

-38.75855 

-215.35914 

1*60.0*0*0 

90.crccc 

-17.32313 

-218.66141 
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1-»SG,0010C 

tlC.OfOfc 

-37.07363 

-215.15914 

13*3.00*0* 

11 *. ccrc* 

•94.79345 

-735.49330 

13*1.1003* 

t?*. :rooc 

-130.34370 

-189.’8**« 

13*C.33*G* 

1 3c.«cacu 

-140.5657G 

-t67. 51968 


14C. OCCCC 

-I67,*l?f 8 

-140. 56570 

i3Su.ci*o* 

i^r.rcccc 

-16<». 78165 

-109,34070 

tr* o.aoco* 

ler.occcc 

-205.49330 

-74.7971,5 

1360.0^001 

l^.aocr 

-?1«\?5«14 

-37,97763 

1-*61.MQQQ 

iso.orooc 

-109 .34970 

.0010* 

1330. "13*0 

*. 

-421,63065 

3. 

13*1.0000 

10 . crooc 

-811.48CC7 

-41.14869 

133 3 • 0C 110 

?p. ococ* 

-728.31297 

-78. 88052 

t3*S.0f*1* 

90. CCGCC 

-606.6*7*8 

-115,71*60 


40. Cl*u* 

-459.61427 

-148.24688 

138C. 10010 

53.CC0CC 

-311.69*94 

-176,67376 

133 ". 1**301 

6C. CCCCC 

-134.76C65 

-199, 73740 

13*0. DIDO 

T Q • CCC * 

-92.04228 

-216.72245 

1330.01310 

oo.accoc 

-7f .65792 

-’27, 12740 

1?*G. 0"0*0 

90. CCCCC 

-18.26574 

-23C. 63121 

1330. *010* 

lOC.uCQQC 

-4C.C4869 

-227.12740 

1390.00011 

110.3CCCC 

-78.84*52 

-216.72245 

1303. OH*'? 

120.5C3CC 

-115.71560 

-199.73749 

139Q. 0*051 

130. **CCO 

-148.24688 

-176.67376 

1390.0**00 

1 40, Of 0 Cf 

-176.67376 

-148.24686 

1?3 0. OCDOO 

15C. CCCCC 

-199.73240 

-tl5. 31560 

13OQ.C3000 

16C.CCC0C 

-216.72245 

-73.88052 

171O.O101O 

it*. score 

-227.12749 

-4C. 04669 

1300. O'* 000 

13*.0fC0C 

-115.31560 

. 1303* 

14jg.ocio* 

0. 

-443.675** 

0. 

140Q.CO0O* 

10.CCOO* 

-853.52567 

-42.12375 

16*0. SCOT'S 

2*. CCOCO 

-766.03887 

-82.96759 

14Q 0. QGOO0 

30.0CCC* 

-636.C3761 

-121.290 51 

1410.0***0 

63. OCCCC 

-687.50210 

-155.92807 

1603.03700 

5C.1CC0C 

-327.*3$47 

-165.32764 

1400.0*110 

63.CC0Q0 

-194. ’33374 

-210.06132 

143 9.0*000 

*o.ctcce 

-97.75755 

-277.95159 

141 C. 0 OOOO 

eo.ccooo 

-38.55729 

-238.89566 

1400.00000 

9C. CCCCC 

-19.21636 

-242.58101 

1400.03100 

isc. ceocc 

-42.12375 

-233.89566 

1430.10*00 

1 13. 3CSCC 

-82.96759 

-227.951 *9 

1603 * 0 0300 

120. OCCCC 

-121.29051 

-210.1813? 

1403*00110 

i7*.rcocr 

*155.92807 

-185.32764 

140C* * S0 10 

143. C COCO 

-135.82784 

-155.92307 

1400.03300 

ISO. OCCCC 

-212.08132 

-121.29051 

1400.0031*' 

163. Of 000 

-227,051 J9 

-67.96759 

141O.C*00O 

170. OCCCC 

-238.89566 

-4?.t2375 

1400.03*00 

l V.OCQGt 

-121.29051 

•00000 

14?1.C*00* 

3. 

-277.19594 

0. 

14^3.3003* 

10.QC03G 

-437.27424 

-21.53064 

1620.01330 

23.0 COCO 

-792.45341 

-42.50556 

162 0. 0 COCO 

3S.OCOOO 

-326.87652 

-62.13393 

16?3. 00303 

40.0C1OC 

-247.70551 

-79.88433 

1623.00100 

53. *COOQ 

-167.95512 

-95.70244 

142".0 110* 

6C.OCCCO 

-9°. *6014 

-107.62787 

1630. 00300 

7c. c core 

-51.08789 

-116.78308 

1620.00000 

so.cccoc 

-19.75749 

-122.38990 

t62o.*eoec 

^o.ocooo 

-9.64464 

-124.27796 

162 0. 0 00 CO 

IOO.OCOOC 

-21,53*64 

-122.38990 

1620.00300 

113.CCOOO 

-42.50556 

-116. *8398 

1620.03303 

120. CCCCC 

-67.13898 

-107.62737 

147O.0OOCO 

jTC.uoocr 

-79.83433 

-95,20244 

1690.00000 

140. uCCOC 

-95.20244 

-79.88433 

1620.00000 

153 • C CO 90 

-107.67767 

-62.13898 

1620.00000 

16C.0C0CC 

-116.73303 

-42,50556 

1620.03000 

170. CCCCC 

-172.78*90 

-21.58064 

1420.3330* 

1SO.OCOCC 

-62,13898 

,01000 
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listing of NET normal ano tangential loads for example problem ? 


<5TVL* 2'*6422« 

S^VLXr* 12*477319.36 

S7TVL* 

452645.69 C* 

* CC®3 

vcor* 

AML 

4TTL 

m 

% 

0. 

9. 

0. 

\ 

*• 3 00CC 

0. 

0. 

0. 

19.GCQC* 

Q. 

0. 

3. 

15.0C0C0 

0. 

0. 

9. 

20.9CCCP 

0. 

0. 

3. 

2S. 00300 

c. 

«• 

3. 

30 . rccco 

0. 

0. 

0. 

****CUCC 

0. 

9. 

0. 

46.QC00C 

Q. 

0. 

0. 

45. trace 

0. 

0. 

9. 

5".3C0GC 

0. 

0. 

*i • 

55.CC0CC 

0. 

9. 

9* 

60.3rocr 

0. 

0. 

0. 

65.CC90C 

0. 

0% 

0. 

70. tcocc 

0. 

0. 

9, 

75.3C0C0 

0. 

0* 

0. 

60. CCGCC 

0. 

0* 

0. 

35.0CQ0C 

0. 

0. 

% 

^o.cciro 

0* 

a. 

17. 4C ?9? 

c . 

0. 

0. 

t7.40°a* 

s.ocooc 

0. 

c. 

17.4090C 

1Q.GCOOO 

0. 

0. 

t7.4iic* 

1*>* a COCC 

0. 

0. 

17.40003 

20.CCCOO 

0. 

0. 

17.4?a90 

?5. iCOOC 

o. 

0. 

17.4*990 

3G.OCOCO 

0. 

0. 

17.49900 

35.DC0GC 

0. 

0. 
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t7.4C3*J 

4G.3CC0C 

*. 

G. 

17 

45. CCOCC 

0. 

0. 

17 . 4*996 

GCC3 C 

c. 

Q. 


55. ICCCr 

c. 

9. 

17.4J9G** 

60.9C3CC 

*. 

G. 

17.4203" 

65. GC9CC 

c. 

0, 

17.4*3*9 

’O.cccor 

9 . 

0. 

17.40*09 

75. 009 OG 

9. 

C. 

i7.4?*oc 

8*. Q r GCC 

C. 

G. 

1 T . 4*390 

*5.aroC" 

5. 

0, 

17 . 4 * 3*3 

95.9 CO GC 

0. 

9. 

34.*9*G* 

3, 

0, 

9. 

7%. *09 3? 

*• CCOGC 

". 

", 

74,J*0C3 

lO.CCCGf 

0. 

9. 

74,80999 

1 c , G CGQC 

c. 

0. 

34.**C9? 

2Q.GT0C9 

0. 

0. 

74,89309 

25.CC9C* 

0. 

0. 

J4.8'?3? 

’".CCOCC 

3 * 

G. 

’4. *9530 

3 COCO 

0. 

0. 

74,8233" 

40. CC3CC 

0. 

0. 

34.8C ft 3G 

4*. 09090 

0. 

9, 

74.43CC0 

59. CCOCC 

*. 

0. 

74,83109 

65.CCC0" 

9. 

9. 

34,9990" 

*C90G 

0. 

0. 

34.8V330 

65.0CCG0 

Q. 

9. 

74,*"9C9 

79. 9 CH 6C 

0. 

9. 

34, *993" 

3 C3CC 

c. 

0. 

34,99003 

80.pfC00 

0. 

9, 

74.800*0 

85. "COOG 

0. 

0. 

34.89C0* 

9C,orocc 

9. 

0. 

•52,21300 

9. 

0. 

0, 

52.29C0C 

*. Gtcce 

0. 

0* 

52.2999C 

1".0C00C 

0. 

0. 

92,?9000 

15. CCOCC 

e. 

9. 

5?.2Q"09 

2 0, 3 COCO 

0. 

9. 

52,29tCG 

25, 9CC00 

0, 

0, 

*2,2)099 

38, CCOCC 

c. 

0, 

52,20090 

75. CCOG? 

0. 

0. 

52,20900 

49, QOO CO 

9. 

0, 

52.23*0C 

45.0 COCO 

0. 

0. 

52* 2 r 090 

50, CCOCC 

G, 

o. 

52.2109" 

5*. GC3C0 

0. 

0. 

5?. 20090 

69.GCCC9 

0. 

0. 

52.29000 

65, 9C009 

9. 

0. 

52* 20390 

79.CC039 

C, 

0, 

C 2.2980C 

75. CCOO" 

9. 

0, 

52.20399 

80, 9 CO 00 

0. 

0. 

52.29000 

5*, 0 CO0O 

9. 

0, 

52.20009 

69, "COCO 

9. 

c. 

55.69900 

9, 

0. 

0. 

65.60009 

5. 0 COCO 

0, 

0, 

66.60909 

to.rcooc 

9, 

9. 

65,69909 

15, 0 COCO 

0 • 

0. 

69.6"900 

^9, C COC * 

C. 

0. 

66.6*300 

25.0COCO 

r. 

0. 

66,63900 

30. CCOCC 

c. 

c. 

66.40390 

36. 9C000 

0. 

0. 

66*69000 

40. CCOCC 

0. 

e. 

66.60009 

4*, COGCC 

9. 

0, 

65,69000 

50, CCOCC 

c. 

0, 

66.699*0 

55.0CG0C 

0. 

0, 

66.60000 

60.0T000 

9. 

0. 
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6**6*330 

65. CCCCC 

0 . 

a. 

60. 6011* 

70.CC30C 

0 . 

0. 

69 . 6 C 34 ; 

75.uC0fC 

4. 

0 . 

* 9 . 60*43 

80. OCCCC 

0 . 

0 . 

s9.6*eso 

*5. CCCCC 

c. 

0 . 

es.eoiu** 

Qn • G CO r £ 

0 . 

c. 

t-^.cc^ur 

0 . 

0. 

5. 

^^•COOK 

5.CCCGP 

* 

. . 

3. 

87.0 r 300 

la.omcr 

0 . 

0 . 

47 . moo 

is. cnjcc 

c. 

G. 

8 *.c:acc 

ZO.GfutQ 

4. 

0. 

57.*)43" 

?5.:c:cr 

0 . 

3. 

a^oioco 

30. GCOGC 

G. 

0 . 

97.Q*30C 

35.0COC0 

c. 

c. 

97, C301* 

4C.CC0CC 

0 . 

4. 

87.0400* 

45. 0C0GC 

0. 

0. 

87 # 010"J 

so. croro 

*. 

9. 

* 7* CC90C 

55.^CCCC 

G . 

0. 

^7.cacD ,, 

6Q.3C9GC 

c. 

C. 

9^.3*503- 

65. OCCCC 

4. 

0. 

o^.ocjo? 

™.tCC4C 

c. 

4. 

t r # o ?r»c r 

75.CC0C4 

0. 

0. 

87.C"30* 

83. GCOGC 

0. 

0. 

9*.oo39n 

85. GC000 

4. 

8 . 

8^* 0*C9* 

9C.atocc 

0. 

0. 

134.45004 

c. 

4. 

0. 

114.4C50C 

5. OCCCC 

c. 

0. 

154.4CQ9;? 

1C.GC00G 

c. • 

0. 

134.43904 

15. CG0G4 

0. 

0. 

1 j4» 4 ^03** 

2*.CC0£C 

Q. 

0 . 

104.43C93 

25, 2CC0C 

0 . 

0 * 

134,45900 

30.CC3CC 

0 . 

c. 

134.4393* 

85.CC00C 

0 . 

0 . 

134. 4Cw90 

40. OCCCC 

0 . 

0 . 

114.43900 

45.CC0G* 

0 . 

0 . 

104.44904 

5G.CCQCG 

0. 

0 . 

134.43030 

56.rCj|CC 

0 . 

0 . 

134.40333 

60. 5C0CC 

0 . 

c. 

104.43330 

65. CCCCC 

G . 

0 . 

134.4C000 

70. *€<*4,0 

0 . 

0 . 

134.4*004 

75.00*0^ 

C . 

0 . 

104.4 3 534 

40. CCCCC 

c. 

3 . 

134.43000 

86. 6C5C0 

0 . 

0 . 

134.43400 

9C.CCOCO 

0 . 

0 . 

121.93000 

0 . 

3. 

0 . 

121.8C9C4 

5.CC*CC 

f . 

0 . 

121 . 5490 * 

10. 043 OC 

0 . 

n. 

lei.scD^y 

1 5.CC5PG 

0 . 

9. 

121.8 0300 

20. OCCCC 

0 . 

0 . 

171. 8300C 

25. OCOOt 

0 . 

c . 

121. 9030** 

30. GCOGC 

0 . 

0 . 

i 2 i.*oaoc 

35. OCOCC 

0 . 

0 . 

121.80305 

4C. 3f3G" 

3. 

0 . 

121.9C13C 

45.3C00C 

0 . 

3 . 

121.43030 

50.CC0CC 

0 . 

4. 

121 #8 n 00C 

55. CC004 

0 . 

0 . 

121.8010C 

60 • CbCC 0 

0. 

9. 

121.4003* 

65. OCCCC 

0. 

0. 

121.83034 

70.0CCC" 

0. 

0. 

m. 80J40 

75.000CO 

0. 

0. 

1*»1.800DO 

iO.CCOCO 

0. 

0. 

171. *0304 

55.CCOOC 

0. 

0. 
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121. 301 JO 

50. iCOCft 

0 . 

0. 

1*5. 2*330 

9. 

9 . 

9. 

1^***0Cy 

5* 3 19 f r 

0. 

0. 

l*9.23"-*> 

10. CCOCC 

9 . 

0. 

ii9.?coo* 

15.C9QCG 

0. 

0. 

13*. **30* 

*C.-CCCr 

0. 

0. 

no.?; 30* 

25. 9CCG? 

*. 

0. 

I-**. 29)09 

3o.*rcrc 

0. 

9. 

13*.29o*0 

35. CC1CC 

9. 

0. 

1**.2*)0* 

40. JfSOC 

9. 

0. 

1 *9* 2990* 

45.ocuor 

G. 

C. 

U5.239C9 

50. rcocc 

C. 

0. 

*3*. 29)93 

55. rrc*o 

9 * 

9. 

13°. 20903 

63. ccocr 

0. 

0. 

139* 293 **0 

65.9C0CC 

0. 

0. 

119.2903" 

70.0CCCC 

0. 

0. 

115.*099r 

75.uCC3C 

0. 

9. 

r»9.2Ccao 

ao.aroco 

a. 

0. 

11O.20J9C 

95. ccocr 

0. 

0. 

13*. 2*33" 

90.CCG0G 

0. 

G. 

156.60939 

0. 

0. 

0. 

156.6993" 

5.9 core 

0. 

9. 

1*56. 60930 

13. occrr 

9. 

9. 

15b.600"C 

l r .CCOCC 

t . 

ft. 

156. 69393 

2C.0CCCC 

r. 

0. 

156.60303 

25. rcocc 

9 . 

*. 

156.69039 

30 • 9C3CC 

0. 

0. 

156.60390 

55* 0C0LC 

9 . 

0. 

156.60900 

4C.CfflOC 

9 * 

0. 

156.63300 

45. 9 COO C 

0. 

0. 

156.60100 

59. ccocr 

*. 

0. 

156.6*90* 

5*.GCQCC 

c. 

9. 

156.6^930 

69. CCSCr 

0. 

G. 

156.63990 

65.0C0C9 

9. 

0. 

156.60:00 

70.9*000 

0. 

0. 

156.6C0C9 

75.0CCC0 

0. 

0. 

156. 69009 

90. OCOu* 

9. 

0. 

15 6. 6 0909 

*5.0CGC9 

0. 

0. 

156.69390 

50. CCOCC 

0. 

0. 

1*4.00939 

0. 

ft. 

0. 

t 74. C0909 

5 . croco 

0 . 

0. 

1*4.00039 

to. ccocr 

c. 

0. 

17 4. 0^909 

15. OtO CC 

9 . 

0* 

174.03009 

29.3C00C 

0. 

0. 

174.00*39 

25. CCOCC 

e. 

0. 

17 4. 003 00 

33. 9CCC9 

r. 

0. 

t74.01Q*C 

15.0C0CC 

0. 

0. 

174.90900 

40.CC030 

c. 

0. 

1*4. 033*0 

45.9 f 9b9 

9 . 

0. 

174. 00093 
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*97.2*33" 

2 *.*coor 

M7.293*f 

*«.Cf9CC 


33. ococc 

487.?33u* 

35. 9 C3 u r 

487.205*1 

49.CC3C* 

457.2*33* 

45. CC9CC 

497.7-neo 

40.3CCCC 

497 # ?-333 

5 c .ftCGf 

487.2*C0C 

69 • 1C9CC 

487.2*30* 

6«?.orcrc 

4*7 .2* 3G9 

70.PCCCC 

4*7.2C*3C 

75.c*30* 

487.20*3* 

8*.* t*5« 

4*7.?oo:c 

85.CC0CC 

48 7.29330 

90 ♦*- C*GC 

534.6*303 

0. 

**4. 63390 

5. GaGCO 

534.^633* 

13.0CCCC 

514.6*0*w 

15. * Cf *5 

514.69GS* 

2*. CfOiiO 

5a4.6030* 

25.K3CC 

534.8S3C3 

3C.CC900 

504.69080 

36. 0C9C C 

5*4.6tr:c 

43 • CCQQt 

504.6*009 

45. CCOOO 

5*4.65*05 

so. ocorc 

534.6*3*0 

55.CC50G 

c *4.6:33* 

63. 3 f 9€ r 

594.6^00 

65. CfCaC 

5*4.6*50* 

7*. CCQCG 

894.4C931 

? c .otoor 

534.6003* 

40.0000* 

*36.63*55 

85.CC9fr 

534.6*000 

9C.CC3CC 

572.00330 

0. 

52 *.00310 

*. QC9CC 

522.-3*00 

1C. CCOCO 

5*2. 033*0 

15.90G50 

*72. *30*0 

20. 003*3 

527.JT30O 

25.CCGC0 

*22.0 3300 

70. 0C5C0 

522.C-2D* 

36,rroG9 

*22.30*05 

6c.oroo* 

522.0950* 

45. erOOL 

522.00000 

59.C00CC 

572.01*a0 

55. 3 CO 00 

522*3*009 

60. 3 00 uC 

522.0**00 

6«?.ar*cc 

522.0930* 

70.GCCC0 


735. *1113 

-40* • C$494 

299.56395 

-427* 82165 

261.136*0 

-45*. 30238 

220.7224*= 

-473*74061 

176.67816 

-♦90. 77634 

135.17441 

-5*4. 4*7*5 

90. *9169 

-*14.33929 

45. c l °16 

-52*. 28639 

-•cecco 

-261.1 ?6°G 

-1442.66566 

C. 

-2680 .25659 

-47.8669? 

-2C9*. 17*26 

-95. 36 ’75 

-1136.75*93 

-142.1436$ 

-195.5*799 

-187. 83*80 

459. *5*69 

-232.10237 

475.62201 

-274.63050 

449.67511 

- 715. 10**5 

470.71237 

-353.91969 

368.34375 

-388.74776 

353.01559 

-420.71237 

315.53675 

-445.87911 

274.6*050 

-475.62291 

232.13737 

-497.74514 

187.87780 

-516.96912 

142.1436$ 

-530.46742 

95.36775 

-540.85739 

47.6660? 

-547. 11112 

-.0 0009 

-274.60050 

-1779. *4599 

0. 

-2570.13405 

-44.61738 

-2060.13006 

-96.85715 

-1325.49240 

-147.34465 

-413.65*1$ 

-194.71357 

73* .79350 

-240.59477 

493**71,47 

-284.64781 

466.3306$ 

-326.53456 

436.19575 

-365.936 7 

402 .55280 

-402.55260 

76 r .°3617 

-436.10675 

3*6.53456 

-466. 33966 

2S4.6t,7$l 

-493.02447 

240.59473 

-515.95706 

194.71057 

-634.962*0 

147.344*5 

-549. 9*35 

98.65715 

-560.64675 

49.6173$ 

-567.129*6 

-.01000 

-284.64791 

-1298.00065 

3. 

-245- .13315 

-51.14565 

-204* “7516 

-101.90296 

-1415.76763 

-151.86293 

-61 0 .77406 

-*19.79*87 

14*. *3467 

-*48.30531 

594.42272 

-297.41628 

480.79346 

-376.69219 

449.53829 

-377.20742 

414.9517* 

-414.5518* 

**7.20742 

-449.53829 

336.59219 

-480. *«746 

293.41526 

-506.21318 

248.00531 

-531.04911 

20 G .797*7 

-551*440 35 
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5*2. Cf*fl* 

7S.C10GC 

161.86293 

-566.83480 

r? 2 .oa*jro 

so. ocorr 

1C1.OC206 

-57*. 915?° 


* c .rtGCC 

51.14565 

-68 4 . 6975 G 

5??.o*3*a 

3** ICGCt 

-*t **C 3 

-203.41628 

539. 490^ 

*. 

-1226.5916? 

C. 

539. 4^00? 

6.CC9C0 

-2335.38848 

-52. 3*387 

639.4frno 

1 c. cc::c 

-l°9f *7429 8 

- 1*4, *6735 

r *o, 4*0*0 

16 .rrc*C 

-1461.52223 

-15 5.409 C9 

539.400*0 

29.CCCCL 

-77*.C1?43 

-205. 16758 

5 '5 9* 40 00 G 

? 6 . l co cr 

-48.13738 

-253.763*9 

530. uC 

■'o.oroGC 

467.17506 

-3: S. 22*31 

s*o«4cro? 

35. CCCCC 

441.0o*c 3 

-344.47662 

5*9.4*“QC 

«♦ 0 . j CC I G 

4 *?Q.CT |,03 

-*85.96475 

6**.4*:C0 

45* *C0 CC 

424.53554 

-424.585 5 4 

5*o,4C:)*a 

5** CfOC* 

386.96479 

- 469 # 97493 

5 * 9 . 400 :: 

5 e • t CC t r 

344.40662 

-491.36363 

539,4***C 

6 * • Ct CC r 

393.72*31 

-52G. 00896 

6*0.40)00 

65. 3 CO CC 

253.76399 

-544.19670 

e *'. 40*30 

**.CC3lC 

205.^6758 

-564.^4*78 

539*4 >3C0 

75. CtOCC 

155*4 56 C9 

-579,59463 

539 , 4 :-*™ 

•*. ccccr 

134.26765 

-591.33277 

r 39,4*0?* 

85.9990* 

52.333C* 

-598.16971 

5*o,4*nic 

90. :ccc* 

-.C30C0 

-300.22*31 

556, 8000* 

9. 

-1156.16744 

0 . 

556.6 *00* 

6 . ''COCO 

-2214.8*461 

-53.23115 

556. *0300 

i*.cnrc 

-1030.82646 

-105.99*41 

656. «VO ft 

15, 39CC0 

-1476.02616 

-15*. 98696 

*5&. 00**0 

20.CC9CC 

-887.745*3 

-2*8.77414 

5S6.8vUC9 

25. OCOOu 

-2C3. 16664 

-257.97242 

656.6000'' 

30.0C99C 

336.6*034 

-7*5.20738 

556.63009 

35* ccrcc 

59C.*?249 

-750.11052 

556.8390* 

4C. croft 

46*. 60463 

-79*. 367*4 

556. *0000 

45.CCGU* 

431 * 62*41 

-431.62841 

556.69)09 

5 C. «*Ct CC 

302.36704 

-467.60407 

556. *0 J 52 

55.0C0CC 

350. 11062 

-58 C. 02249 

556.«9000 

63. OCOCC 

3C5. 2u736 

-528.63466 

556. *9000 

65. CCCCC 

257.97*47 

-55 3,22364 

556.890C3 

*G.acooc 

238.77414 

-573,60224 

366.6*003 

*5.rtC£* 

157 *986°6 

-589,61637 

566.8:000 

89 . crccc 

1*6,99741 

-601.14118 

566.e*C00 

86.:rorc 

6*. 20115 

-606.09194 

65 f * • 0 0 C * 

93. acooc 

-.coeoo 

-305. *0738 

524.2*300 

c. 

-1087. *2576 

0. 

5/4.2*020 

5. core* 

-2090.05367 

-57.66044 

«"/4.20*QC 

m. ccccr 

-1049.49C16 

-t06. 563*9 

*7 4.?*090 

16, CC3CC 

-1466 • 28 c 65 

-150.43404 

57 *. 29039 

20.0C9C0 

-969 »9* 86 * 

-210.66640 

6 T 4. 2 100* 

25. 1 CO CC 

-368.81437 

-26*. 77531 

574.2*GC0 

* 0 . HOC* 

192. *6771 

-300.30291 

5*4.2930* 

35,cfOCO 

495.43951 

-353.3*642 

5*4. 2*0*0 

49. C CO JC 

471.88*83 

-795.96091 

57 4.2CC3G 

46. one* 

436.53189 

-435,50139 

5*4.20109 

5C.CC0CC 

395.96091 

-471.06707 

5*4.2C0 0 0 

56.9C1C C 

353.32642 

-504.6024* 

5*<*. 20*93 

60. GfOOC 

308.00291 

-533.47669 

5*4.20000 

65.oraoc 

260.33531 

-558.29097 

574.2*300 

79.0C009 

710.68640 

-578 • *561 2 

574. 2*0-* 

76.0C9CC 

1 59.43494 

-595.01593 

574.20*00 

SQ.u*3GC 

1C6. 96879 

-606,64731 

574.2*0*0 

85. OCCCC 

53.68844 

-613.66173 

5*4.2900* 

90. 0C1C* 

-.C1CC0 

-3*0.3O?91 

591.6330* 

c. 

-1C19. 41785 

3. 
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*?l .6 GOuO 

5.;arc 

-1967.»9C91 

-53.174*? 


ic.cc*rc 

-1763.2*476 

-10 7* 346 3 C 

511 .6-000 

15. c cc*o 

-1436.26052 

-159.997CQ 

r 41.f01P" 

20. UCCC 

-1104.73525 

-211.43034 

59i.6;*cc 

*5.0C*CC 

-490 *fc3°C 4 

-*61.25456 

Sll.e^OCO 

>3. rreer 

42.322C0 

-309. 3904* 

5<M.6n:o 

35. 3 f CCf 

440.61*4* 

-354.5743** 

5*1. SCire 

40.CC* CC 

477.55408 

-797.75906 

591.603** 

4S.CCCCt 

437.UC94 

-437.11994 

sn.*:*a* 

sc.ccrr: 

397.755C6 

-473. c 540 6 

S9i. seine 

55. CCCC* 

254.574C3 

-506.36419 

*<m .soooc 

6C. CCCCf 

?*©. C9C46 

-535. 76041 

sii.ftoooc 

ss. cc*cc 

261. 75456 

-56C. 26721 

sii.e^aor 

*o.u€Cur 

?11. 43*34 

-580.40006 

sii.sacj* 

75. tCOCO 

159.997C0 

-597.11695 

591.69*3* 

SC. -CC2C 

107 .34600 

-608.7893° 

S91.670C* 

SS.;c0*£ 

57.8780? 

-615.17859 


93. CtCO G 

-•GC1GC 

-709.39048 

609.3Q3GQ 

0. 

-953.15111 

0. 

634.0*000 

S.OCCCr 

-1645.73577 

-53.71406 

634.013*0 

ic. reset 

-1670.16778 

-137.no-*6 

6G9.t190C 

l^.rcacr 

-J391.165C1 

-159.51017 

sos.oiaeo 

20.OCOCC 

-10*4.0557? 

-210 • 787 OC 

634.310*0 

25. C COO £ 

-579.43*64 

-260.45962 

639.0*33? 

30.0CQCC 

-•4.2142* 

-308.1455* 

619.OC601 

35.rr 5C c 

326.693C0 

-157.49513 

634.00:00 

4c.proc* 

471 . 87954 

-396.1499* 


45. cfOCn 

435.76568 

-475.789*8 

604.30300 

sc. trice 

396.14997 

-472.11315 

639.9030* 

55. r teen 

353.49513 

-504. S 4377 

POO.Cai^C 

6*.0C0CC 

306.14998 

-517.73142 

699.03C3Q 

65.5CCU 

260.45562 

-558.55745 

639.0C363 

7o* c roc p 

21C.78TQ9 

-579.17252 

63«.0?39C 

rs.stcr* 

159.51017 

-595* HO C4 

SJl.GOauC 

SC* CCC3C 

137*6 1936 

-606.93647 

6*4.00030 

65. 1 CCC 1 

57.71498 

-617,95474 

609.3?G0C 

90. uCGCO 

-•C0OC9 

-308.14498 

6*6.4*909 

n. 

-858.19519 

0. 

6*6.40939 

s.ocoec 

-1724.46463 

-53.74**1 

526.4003* 

to. stcre 

-1574.64577 

-106.09*36 

5*6.406*0 

15.: tocc 

•1336.°*»2 e 0 

-166.12849 

626,41000 

*0.CC3tC 

-1021.39056 

-208.46116 

6*6.439?C 

2 C * C Ct 0 C 

-639.91673 

-258.20351 

626.403SC 

lo.oraor 

-208.46790 

-305.48078 

6*6.43100 

is.oioc e 

234.07455 

-350.47315 

6*6.4030" 

40.CCGCC 

452.80606 

-392.7155? 

626.43305 

45.:nor 

432. t 1506 

-472.01506 

626. 4^302 

50.0 CCCr 

392.71452 

-46S. 12371 

6*o.43O0G 

55.nr00G 

35C. 41315 

-53*. 47041 

6*6.4*33" 

SO.Ofnrr 

305.48678 

-570.10823 

6*6.4010'- 

65. C t0O C 

758.70351 

-553.7192* 

6*6.4790* 

7C.CC0tjr 

236.96116 

-574.11607 

626.4^Jpf 

^5, QCCCC 

158.12849 

-590.14355 

6*6.40-00 

80.CC«fC 

106.09236 

-601.67568 

6*6.400*6 

85.GC00G 

53.24681 

-608.63666 

6* 6 • 4 C 3 3 * 

9C.0C0w r 

-.60000 

-3C5.48C76 

663. *0*0* 

0. 

-824.64396 

0. 

*43.80000 

5. 0 CO tO 

-1605.61464 

-52. *4338 

6M.8C*.)* 

10. CCC*G 

-1477.51501 

-104.48761 

64 1.6*00* 

tS.ClOPG 

-1274.63656 

-155.73668 

641, site* 

20 * creep 

-1C02. 25776 

-205.S0347 

643.8106* 

25. 9CGG* 

-673.33437 

-254.29799 
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643,1 10*C 

7y. 4CCu* 

•39*. ?0?63 

-3J r ,86116 

643,8039* 

35. CNO* 

3<*.4t 846 

-3 45.13259 

647,8**jr 

4-. occrc 

■*65.4*814 

-3*6.77936 

€43. 9100** 

46. ,c*ee 

4*5.4*l c t 

-475. 48051 

*4*.anr3 

6o.*ccac 

*86.77*36 

-460. 34450 

643, MOOT 

5^. o r o r c 

34 r « 1 3259 

-492.9034? 

*'♦ 7,8900* 

6*. -core 

3?3 • 86C15 

-521.13607 

f4*,80i:* 

65. ircoc 

254.29799 

-545.34350 

643, •0***? 

70.CC9CG 

205.90047 

-66 c .432l 7 

643, anon 

7 C , j COC r 

155.73668 

-531.21719 

643, a**-* c 

an. oroor 

1)4.48763 

-592.67587 

643,83330 

55. CC3CC 

32.44338 

-^99.4396* 

*43.81*0* 

93. K04T 

-.03000 

-300.36316 

6*i. 2*io* 

0. 

-762 • €8336 

0. 

661, *9)0* 

5. ucocr 

-1488.66C42 

-51. *4145 

661. 2*93* 

10. -COCO 

-1380.23821 

-1C?. 29716 

661.2*)*q 

l6.rC0C0 

-1236.C9517 

-152.46437 

€61.2*0** 

23 . u f 0* 0 

-972.79153 

-201,4763 

651.23189 

>*. Gtncc 

-689.C76<»0 

-246.96473 

€61.21)*C 

ic.orocc 

-365# c 7627 

-794. *3854 

66i.***ie 

39, CCOOC 

-14.42536 

-8^7, ■36*7** 

*t>i.?*03* 

40. *raco 

289.54470 

-378.65145 

66t.2J9o9 

45.cro*c 

414.962C1 

-416.6434* 

6*1. 23*30 

50. 0C30* 

378.65145 

-461.25922 

661.2G1C9 

SS.irorc 

337,88*73 

-487.54369 

661.293<J1 

6*. ororc 

294.53854 

-510.16572 

661.201*1 

66* oreoc 

248.95473 

-533.38514 

661,2*3 93 

7c. rcoco 

231.47623 

-553.55139 

6si. 2*9*0 

T 5. otocr 

152.46437 

-569.00477 

661,21009 

80. 1C1C* 

102.29216 

-58C. 12^63 

661.2033* 

85* onto 

61.34145 

-586*83546 

661,2000* 

io. croc* 

-.0000 

-294.53854 

679.5103* 

0. 

-702.20640 

0 . 

678.6*03* 

5. j toe r 

-!37*. 2t990 

-49,96950 

678,6*90* 

ic. or coo 

-t 281 .81 123 

-99.55870 

678,63000 

15. CCOOC 

•113^.7^231 

-148.79020 

678.60300 

20.00000 

-934.60317 

-196.09236 

6*8. 6ma 

25.ecat* 

-690.65974 

-242.30214 

6^8. 60000 

30.3C00C 

-411.16400 

-786.66785 

678*6*000 

75.CCCC0 

-05.63929 

-326.85136 

678,60200 

4*. * C* 1 3 

89.21438 

-368.53706 

6*8.6*000 

45. ;c?c* 

‘87.37895 

-405.40956 

673.68^00 

63, * f QCC 

368.533C9 

-439, ?G0 62 

678,60000 

55. 0C3CC 

329.85185 

-469.64911 

*73.6 00*0 

69.PCOOO 

256.66785 

-496.52328 

6*8,60300 

65. CC9GC 

242.30214 

-519.61861 

675,63300 

70.3030* 

196.C9236 

-536,759 22 

678.63030 

75. CCOOC 

148.39020 

-553.79976 

678.63*0* 

80. **O r C 

99.65870 

-564.62544 

679.6'OOC 

$6. ccoro 

49.06950 

-571.15398 

678.6*00* 

9fl.3CCl*r 

-.09CC0 

-266.66785 

696.00390 

0. 

-642.91770 

0. 

6^6. 0003O 

5.orocc 

-1259.98640 

-43, 71458 

606.03000 

10. *0*00 

-1181.27653 

-96.26145 

696.00000 

15, QbOCQ 

-1C58. 17983 

-143.47572 

696. 0J33* 

?o. crooo 

-888.73372 

-189* *>98 35 

696.0100* 

25.0C00C 

-681.47182 

- 274. *7743 

696.00100 

30.a*arc 

-439.99337 

-2 T 7, 1 73 91 

696.00*0* 

35. 1CCQC 

-175.26098 

-317,96073 

696.0*031 

40. tenet 

105.12024 

-356.32778 

69S.1C0Q* 

45* 0 COO 0 

311.64620 

-791.9* 

696,0*090 

53.00000 

356.72778 

-421;, ** 
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f-'i&.IJlj’* 

>*. me c 

317.95073 

-454, 09498 

€”6.P*C”0 

Ar. cfOOC 

?77. 17381 

-483.07912 

35”1” 

<n. cnc* 

?34. 27743 

-A02. 40556 

6?s.9?j”0 

70.*fUC 

139.598C5 

-570.91636 


75. CCO-r 

143.47572 

-535.45668 

6?«>.a”.)0” 

iq. Dtoa r 

96 .26145 

-545,92503 

*<1*.03”C1 

$«. ccau^ 

48.3t455 

-552.*»3816 

*16.01910 

®o. cco^c 

-.MOCO 

-277.17381 

71 1.1313” 

0. 

-585.475C2 

0. 

n3.ia”i” 

A. gfOCr 

-1148*67576 

-46.21291 

71».4730C 

tc. ararc 

-1033.C5647 

-42.07411 

71?. 411 J’’ 

ts.oeoc'’ 

-976.69036 

-137, *3457 

71 ?.4'*t)C3 

2 o.cc*co 

-637.5*764 

- 181 • 35060 

"’1 1.4030’* 

?5. coco 

-655.25473 

-274.08644 

7i 3.4033’* 

30. CCOi 1 ' 

-449.99500 

-265.11684 

713.40310 

35.aC0CC 

-?2?*«64«4 

-304.12454 

713.4C0CC 

4C. 

18.98*39 

-340.02764 

713.4'*0"0 

45.CCGC0 

?34.376G7 

-374.93183 

71 T.40J1C 

*50. OCOfC 

337.06610 

-406. 16*56 

71 1.4303'* 


?04. 12954 

-434.34200 

713.400?” 

60* occnr 

265.11684 

-459.19584 

71?.401)r 

65.3T0CC 

s>24. C$644 

-480.55491 

711.40000 

ro.acooc 

181.35060 

-496.25668 

711.4010” 

75* " cccc 

137.23457 

-512.16640 

713.43100 

50* CC^CO 

92*07411 

-522.17874 

713.40000 

3 e . CfOCC 

46.21291 

-528,71598 

713.41300 

?Q.gCOCC 

-.00000 

-265.11684 

710.00300 

0. 

-529.41571 

0. 

7»3. 83300 

s.rmc 

-1G3° . 75763 

-43.85943 

733.10309 

13.QC0CC 

-984*01029 

-87,38506 

710.8010” 

15.0G30C 

-694.10109 

-130.24564 

710.80030 

?a.ccotc 

-772.54073 

-172. 11498 

7?0.803CO 

75.*;tcec 

-622.693C4 

-712.67441 

719,*"0”0 

70.CC07C 

-448.67955 

-251.61526 

710.80100 

35.CfCCQ 

-255.27604 

-286.54117 

710. 80100 

40.CC0CC 

-47.60251 

-323.47035 

710.80900 

loS.oca&o 

155.22818 

-355.83772 

719.80300 

so.orm 

296.91694 

•385.49655 

719.81300 

55.CC0CC 

268.64117 

-417.27731 

710.80130 

AO.QfOCC 

251.61526 

-435.81042 

730.80000 

65.0C0C0 

217.67441 

-456.06174 

71C. 80950 

70.CC0C0 

172.11498 

-472.86201 

730.8300” 

75.3 COCO 

HO. 24564 

-466,00336 

710. *310” 

^o.^cccc 

37.38506 

-445.58532 

739 . 8i100 

55. ococo 

43.65 943 

-501*31556 

739.83060 

90.CC0C0 

-.CCQCO 

-251.61576 

748. 2”0P0 

0. 

-474.76911 

0* 

748.70990 

s.rfcor 

-033.33116 

-41.25023 

748.73300 

ic.riocc 

-686.36227 

-82.18652 

748.20000 

15.0CQCC 

-811.03343 

-122.49733 

748.21000 

2f.Gtcro 

-709.41314 

-161.67585 

743.20000 

75.QC00G 

-583.69167 

-200.02240 

748.20900 

30.GCC00 

-437.62289 

-236.64666 

748.20900 

75 . occcc 

-274*20653 

-271.46990 

748,2000” 

4*.CCCC0 

-97*66822 

-304.22708 

74*. 20000 

• 45.CfC0C 

37.61337 

-334.66892 

748.29090 

^Q.yCCCO 

233.51635 

-362. 56372 

748.2'mO 

55.0COCO 

271,36206 

-387.69919 

740.20090 

Sft.OCOOC 

736.64666 

-409.88404 

746.2000” 

6 C * 0 CCGC 

200.07240 

-428.94442 

741.23900 

70.CCCOC 

161.8756? 

-444.75024 

748.20000 

75.CCCQ0 

122.49733 

-457.16624 
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748.21*0* 

n*. * c r or 

87.33652 

-466.10253 

74 *. 2 n r 1 0 

a*5.ci?rc 

41.76C73 

-471 . 49* 3 0 

74 5« ? r r 3* 

Qu.iracc 

-.cocoa 

- *36 • €46*6 

7b5.b:*G0 

0. 

-471.67494 

0. 

76*5.613*3* 

mu* 

-g’9.60 c 7t 

-38.77169 

755.6*03* 

l **. * r p r » 

-79**47843 

-76.44936 

765, *01*1 

1 r . JCC0* 

-7?». 95660 

-113.94620 

755.6*3,3* 

70. .MC0 

-**3.°’4nl 

-150,57584 

765.6010" 

25 • CC 0 r C 

-*79,95611 

-136.05951 

765.6C101 

ii.acit* 

-41*. 75677 

-2’0.12’16 


Tr . ^IC^C 

-781.11 297 

-262. *1949 

765.6^:11 

4G • CCCC* 

-131, **4P4? 

-232.50001 

76-;.6:*:* 

46. CfC Ct? 

76.78776 

-311.30680 

’65,8010" 

5*. jt'JfC 

169.57662 

-377.25476 

7*5.6«*ic 

5 r .Cf :it 

246 , 51*60 

-360.67621 

765. 6*110 

6". U3CC 

??C.!?715 

-381.27140 

765.6f 13J 

6 C • Cl r 1° 

3 8b. C 5551 

-399.30590 

76t>.6MC* 

70, into 

35Q.«:7r<?4 

-4tv7. 70371 

765,621 C 3 

?r.oc*CC 

117.946?0 

-425.25300 

765.60330 

8C.*CCt* 

76.44C36 

-473.56534 

765.^0301 

*6,ofocr 

3a. *7069 

-438.57930 

765.60CC: 

9u.-3t<TC 

-.01100 

-220.12716 

’83,imCG 

*. 

-37G.9543D 

0. 

7ft3.tr70C 

6. *tco* 

-726.76475 

-35. ’092Q 

757.00*0-* 

ir.cro*c 

-696.507C9 

-73.15361 

7* 3. 0 *3 3 G 

1 5. CC * C C 

-645.54575 

-104.65815 

▼Ol.COnjn 

20. CCCCC 

-576.05592 

-138.16974 

763. 03030 

26,0C*CD 

-491.63446 

-170.7?987 

787.n:*31 

30, u 0 1 C •» 

-79C.677C6 

- 201* 991 64 

783.1C11G 

35.CC0CG 

-775.63466 

-231.71415 

787. 1300* 

40.CCCGC 

-151.04124 

-259.67417 

7*3. 1*01* 

4^. acoco 

-19.65170 

-285.65791 

737.3700* 

so* one* 

«11. 161*6 

-309.4678? 

733.C0C1G 

55.0C09C 

204.X 5? 74 

-330.92210 

7*3. *3)30 

60. cccrc 

201.99064 

-346.35806 

’77.0*10* 

6 r * 3 CO 03 

170.72967 

-366.13139 

753.C03C* 

79.07300 

136.16574 

-379.61824 

783.7011C 

7 K . 0 CC CC 

134.65305 

-390.21596 

787. OKI* 

ao.cract 

76.1 5*61 

-397.84790 

763.31C0G 

85.onoc 

36.20929 

-402.4440? 

783.00000 

9«. oner 

-.09000 

-?0 1. 69* 64 

8*3. 4*31* 

0. 

-319.04425 

0. 

•3G.4J04* 

5.0C5CG 

-€30.59720 

-31.78647 

80*.4aiio 

lO.OCOOC 

-634.45656 

-63.33102 

aao.4Coi* 

15. 0 C 3C 0 

-563.90144 

-94.79758 

810.410*1 

20. 0t"0C 

-509.40724 

-12; "3775 

813.410CG 

’5.CC0C0 

-439.02916 

-154, .7*59 

POO.41&G0 

70. ccrcc 

-355.79041 

-182, "54 39 

*30.41000 

7*,3£fC* 

-261.31429 

-209.18877 

*00.43000 

4a,ofcoc 

-166.04**6 

-234.47029 

8OC.4100" 

45.CC0CC 

-57.17940 

-257.88806 

AQ*.4*0G* 

50.9C3CC 

59.99*32 

-279.3871#* 

•01.40110 

55.OCO0* 

152.70451 

-298.75195 

aoo.4cnoo 

sc.croec 

iai.ao€€5 

-715.84738 

590.430C0 

65, 009 C 9 

154.17759 

-370.67841 

a3i.4cooo 

’C.OCOC* 

124.77775 

-342.71416 

•00.4300* 

75* c cor G 

94. ’9758 

-352.28164 

*0 0 • 409 3* 

ao. crocc 

63.371C? 

-359.16804 

73 C. 43 030 

75. GCOCG 

31.76547 

-367.32096 

700.4*000 

oA.ccocr 

-.toooo 

-18?* 364 39 

717. *0000 

0. 

-77i.?l*6A 

0. 

817. A00G3 

5.CC0CC 

-*35,16747 

-?8. 09936 
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*i 7 .8noie 

1C. CTPLG 

-514 . ** 2 f 75 

-*15.984*6 

617. 

15. price 

-462.21580 

-63,44428 

*l7.*8e*Q 

28.CCC08 

-478. MOM 

-11C. 2*665 

*t 7 .»l* 1 G 

?5* uorr 

- 7 *2. 7 2914 

-136.25760 

817,5*100 

3G. * CG 0 8 

-31 5*72677 

-161.20196 

617,«*"?C 

35. creep 

-24C. 96493 

-184.92331 

©l 7 . 8 C 1 J 8 

4*** ococc 

-15o.r 6 i79 

-207.23727 

*t 7 .«'tP 1 

4 *. Groce 

-77.36823 

-227.97403 

et*'.*cooo 

5r. tCICf 

1 9* G 0474 

-246.97576 

61 7. *'330 

55 . crate 

103.72580 

-264.09766 

a< 7.*:io* 

^o.oicir 

154.P7259 

-279,210?? 

6t7.*pC*0 

55, G ( PC b 

136.25760 

-?*?. 19 7 ?? 

8 l 7 .** 8 n<) 

70. jCCCC 

1 IP *26865 

-^02. 96662 

617.800C3 

75 . orocu 

83.44428 

-31 1.41*31 

817.600-0 

60. GC0C8 

55.9*4*6 

-317.50592 

d^.A^c * 

* 5.3 COOP 

2*.83c ? 6 

-321.17711 

8t 7 , • 03 00 

90.3CCP0 

-.003C0 

-161.20198 

835,f>*70Q 

8. 

-123.76752 

0. 

*75.2*008 

5.QC0QC 

-244.21436 

-13.0 83 C 1 

815.20303 

IP. ctoco 

-275.66481 

-*€•06227 

875.201G0 

ls.orcco 

-2>P. 97^19 

-38* 645 ? 7 

•15.23330 

2 r * CCO 3C 

-201.52670 

-51 • 73264 

835.23103 

25.0^000 

-176 .*7C77 

-63.42934 

875.?riC0 

3C. C C C C 

-147.11755 

-75.34330 

835.20300 

75* 0 CC C C 

-114.10422 

-86.8*614 

•35.?:i10 

40* 3 C00 r 

-77.95615 

-96.47361 

835.2V33 

45.CC000 

-39.03324 

-106.12726 

675.2'OPO 

50. 0 CO CP 

1.72957 

-114.97701 

875.2*008 

55. C (CO 8 

41.23*55 

•1*2. 94775 

835. 7>o*1 

63. rente 

67.96017 

-129.57681 

67*. 20100 

65, arcro 

63,42634 

-176.32466 

815.23830 

70 , 0 PC g 0 

51.33264 

-141.33527 

815.20003 

75 '.COCO 

76.84527 

-144.97257 

875.23300 

*c,uu f . 

26,86297 

-147,80645 

6’5. 23381) 

65. QOO iw 

13.05P91 

-149.'1548 

635.28Q3 8 

9C, w ccrc 

••78000 

-75,14330 
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LISTING OF NAItR IMPACT LOADS PROGRAM 

PROGRAM 00 (INPUT. OUTPUT. [ APE2=INPUT • T APtJ=OUTPUT .PUNCH) 

C MOO TO OBTAIN PUNCHED CANOS ONLY. 

DIMENSION VSD(2U> *NA(20> »PN (20 ) »«lSN (20) *HPN (20) *CPR (20 ) .XCORO ( 100) 
DIMENSION YCORD (37 ) * St OLA (37 ) .NStbX ( 37 ) *DL (37 ) . SbGLY (20 ) . NSEGY ( 20 ) 
DIMENSION DC (20 ) *DVSD (20) «DN A (20) .DPNI20) .APN(IOO) *A»AU00> 
DIMENSION CNSR (100.37) .PCN (100.31) .PL (100. 37). OMSK (20) »0HPW (20 ) 
DIMENSION OCPN(20) «ANL(100«37) »AVL (100*37 1 * TVL ( 100 ) * T Vl AC (Io0> 
DIMENSION PL (100 ) *ANa(100) *V II. (100*37). ANIL (100*37). AT IL (100* 3?) 
DIMENSION TVIL(IOO) .REACTUOO) .STPAP(IOO) 

1 FORMAT (lbI5) 

2 FORMAT (6F10.5) 

3 FORMAT (0F1O.S) 

A FORMAT (8E10. 6) 

C 5 FORMAT (3F20.5) 

C 6 FORMAT (SF20.S) 

C 7 FORMAT(10A»AHTNT=*F10.S) 

C 8 FORMAT ( 10 A*3HVSO* 1 0X.2HNA * 10A.2HPN*// ) 

C 9 FORMAT (9A*F10.S*BX*F10.S*8X*F10»5) 

C 10 FORMAT (1H1) 

C 11 FORMAT ( 10A*3hmSR* 10X*3mHPR* 10A.3HCPR*// ) 

C 12 FORMAT (9A*Fl0.b*8X*Flo«S*BX*Fi0.5) 

C 13 FORMAT (2A*5HPMAX=*F 10. 5»2X»2HT=.F l0.b»2X*3NVV=.F 10. 5»2 a* 3MMW=,F10. 
C lS*2X*2HRs»F10.S»2X*3HVL=*F10.S> 

C 14 FORMAT ( l0X*AHDVSO*20X*3iiDNA*2OX*3hDPN*//) 

C IS FORMAT (2X*F20.5*SX»F20.S*3a«F20.5) 

C 16 FORMAT ( 1 OX * SHXCORO » 20 A * 3HXPN* 20X * 3HAm A t // ) 

C 17 FORMAT (10X*AHDNSR*20X*AMDhPR*20X*AHDCPR*//) 

C 18 FORMAT (8X.SHAC0R0»15X.SHYCOHO*lSX*4hCwSR*17X*3HPCR*17A.2HPL»//) 

C 19 FORMAT (8X*5HXC0R0*1SX*SHYC0RD*16X«3HANL*17A*3HAVL*17A*3HTVL*//) 

C 20 FOHMAT(8X*5HXC0R0*16X*3hTVL*16A*SHTVLAC«//> 

C 21 FORMAT (5X»5HSTVL a *FlU.2»5A»7HSTVLAC=»F15.2»5X»6HS2TVL=»F10,2*5X*3H 
C 1CP*»F10.2) 

C 22 FORMAT(10A»5HXCORO»20X*3HXNA»20X»2HRL*//) 

C 23 FOHMAT (8X .SHXCORO* ISA .SHYCORO* 16A *3t1V IL* 16X* AHAN1L* 16A* AHATlL. // ) 

C 2A FORMAT (10X*3HUB**F20.10) 

25 FORMAT(E10. 3.315) 

C 26 FORMAT (8X.5HXC0RD»16X*5HYC0RD»16X.3HANL.16A.AHAT1L*//) 

C 27 FORMAT (AF20. 5) 

28 FORMAT (F10.2*10X*F10.2> 

C LIST OF PROGRAM NOMENCLATURE 

C 

C A DEGREE TO RADIAN CONVERSION 

C ANGLE 180 LESS INCLUSIVE ANGLE/2 OVER »H1CH REACTING STRAP BEARS 
C ANIL NORMAL INERTIA LOAD COMPONENT AT A NODE 

C ANL NORMAL LOAD AT MESH POINT 

C ATIL TANGENTIAL INERTIA LOAD COMPONENT AT A NODE 

C AVL VERTICAL COMPONENT OF NORMAL LOAD 

C ANA NETTED ANGLE AT MESH POINT 

C CP CENTER OF PRESSURE 

C CPR RADIAL PRESSURE DISTRIBUTION CURVE 2 (NETTED ANGLE EOUAL 9U) 

C CNSR NETTED SURFACE RATIO OF YCORD IN MESH 

C D VEHICLE DIAMETER 

C DC INCREMENTAL LENGTH IN SEGMENT Y 

C UCPR INCREMENTAL PRESSURE RATIO FOR CURVE 2 

C OHPR INCREMENTAL K.lSSORE RATIO FOR CURVE 1 

C DL INCREMENTAL LENGTH IN SEGMENT X 

C DPN INCREMENTAL PRESSURE 

C OVSD INCREMENTAL VEHICLE STATION 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 


OVA INCREMENTAL WETTtO ANGLE 

OW$R INCREMENTAL WETTtU SURFACE RATIO 

OX INCREMENTAL DISTANCE ALONG A COORDINATE 

DY INCREMENTAL DISTANCE ALONG Y COORDINATE 

HC PORTION OF VEhICLE CIRCUMFERENCE 

HPR RADIAL PRESSURE DISTRIBUTION CURVE 1 (wtTTEU ANGLE LESS 90) 

hv horizontal vELoenr 

K0 CODE FOR OESIREO OUTPUT (Otlt OR 2) 

LA CODE FOR SHAPE OF PRESSURE CURVE (0 OR I) 

LP CODE FOR SHAPE OF WETTED ANGLE CURVE (0 UR 1) 

NC NUMBER OF COLUMNS ALONG Y COORDINATE DIRECTION 

NCDP NUMBER OF CIRCUMFERENTIAL DATA POINTS FOR PRESSURE 
NLDP NUMBER OF LONGl TOUlNAL UaTA POINTS FOR KtEL PRESSURE 

NNX NUMBER OF SEGMENTS IN X DIRECTION WITH CONSTANT SPACING 

NNY NUMBER OF SEGMENTS IN Y DIRECTION wITH CONSTANT SPACING 

NR NUMBER OF ROWS ALONG X COORDINATE DIRECTION 

NSEGX NUMBER OF MESH SPACES WITHIN SEGMENT X 

NSEGY NUMBER OF MESH SPACES WITHIN SEGMENT Y 

PCR PRESSURE RATIO OF YCORO IN MESH AT A LONGITUDINAL STATION 

PI PI 

PL PRESSURE AT YCORO IN MESH 

PMAX MAXIMUM PRESSURE 

PN NORMALIZED PRESSURE At A VEHICLE STATION 

R VEHICLE RADIUS 

REACT UNIFORM STRAP BEARING LOAD AT A LONGITUDINAL STATION 

RL AVERAGE PEAK RUNNING LOAD AT A LONGITUDINAL STATION 

SEGLX LENGTH OF SEGMENT IN X DIRECTION 

SCGLY ANGLE OF SEGMENT IN Y DIRECTION 

STRAP STRAP TENSION LOAD AT A LONGITUDINAL STATION 

STVIL TOTAL VERTICAL iNtRTIA LOAD ON VEHICLE 

ST VL HALF OF TOTAL VERTICAL PRESSURE LOAD ON VEHICLE 

STVLXC TOTAL FIRST MOMENT OF VERTICAL PRESSURE LOAD ON VEHICLE 

S2TVL TOTAL VERTICAL LOAD ON VtHlCLE DUE TO PRESSURE 

T TIME POINT NUMBER 

THETA INCLUSIVE ANGLE USED IN VEHICLE MODEL (90 OR 180) 

TL TOTAL X LENGTH 

TNT TOTAL NUMBER OF TIRE POINTS 

TVIL TOTAL VERTICAL INERTIA LOAD AT A VEHICLE STATION 

TVL TOTAL VERTICAL PRESSURE LOAD AT A VEHICLE STATION 

TVLXC FIRST MOMENT OF TOTAL VERTICAL PRESSURE LOAD AT A STATION 

UB UNBALANCE BETWEEN PRESSURE AND INERTIA LOADING 

VIL VERTICAL INERTIA LOAD AT A MESH POINT 

VL VEHICLE LENGTH 

VSO NON •DIMENSIONAL VEHICLE STATION IN DIAMETERS 

VV VERTICAL VELOCITY 

WA WETTED ANGLE AT A VEHICLE STATION 

WSR WETTED SURFACE RATIO 

XCORD X-COORDINATE OF MESH POINT 

XPN MAX PRESSURE AT A ROW IN MESH 

XWA AVERAGE WETTED ANGLE AT A ROW IN MESH 

YCORO Y-COORDINATE OF MESH POINT 

INTEGER ZtYtX 
Z«I 
Y*2 
X»3 

READ<2*2) TNT 
WRITE (3tT) TNT 

29 READ (2 » 1 ) NLDP* NCDP* LA tLPtKO 

REAOING OF DATA POINTS WHICH REPRESENT WETTEO ANGLE AND NORMALIZED 
PRESSURE CURVES 

RE AO (2*2) (V$D<n»WA(I) tPNU)tI*ltNLOP> 
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WHITE (3*8) 

WRITE (3*9) (VSD(I > *WA( l) *PN(I > *I=1*NL0P> 

READING OF DATA POINTS WHICH REPRESENT PRESSURE RATIO CURVES 
ME A U(2.2) (WSRd ) » HPW ( I ) * CPK ( 1 ) « I=1*NCDP) 

WRITEUP!) 

WHITE (3*12) (wSR(l> »HPR(1) *CPW(I) »1*1 »nC0P) 

READ (2*3) PMAX* T * VV*HV * R* Vl * THET A* ANGLt 
WRITE (3*13)PMAX»T*VV.HV*R*VL 
0=2. *H 

A=0«01 745329252 

0 1 HE NS 1 ONAL 1 2 1 NO OF L0N6lTuUlNAL AND PRtSSURt RATIO CURVES 
00 30 1=1 *NL0P 
VSD(I)=VSD(I)»D 
30 PN ( I ) =PN ( 1 ) *PMAX 
WRITE (3*6) 

WRITE (3*5) (VSDd) »WA(1> *PN(I> *I = 1»NLDP> 

HEAD (2* 1 > NR*NC 
IK (NR)40»50»6G 

C CALCULATION OF X COOROlNATES IF MESH SPACING IS CONSTANT 

60 DX=VL/(NK-1> 

00 70 1=1 »NR 

IF (I .ECi. 1 > 60 TO 65 
XCORD ( 1 ) =XC0R0 ( 1 -1 ) *0 X 
60 TO 70 
65 XCORO ( I ) =0. 

70 CONTINUE 
60 TO 61 

C READING OF X COORDINATES IF SPACING IS VARlAbLE 
40 NR* “NR 

RE AO (2* 4) ( XCORO (I) *1=1 *NK ) 

60 TO 61 

C CALCULATION OF X COORDINATES IK SPACING IS CONSTANT WITHIN EACH 

C SEGMENT BUT VARIES FkOM SEGMENT TO SEGMENT 

50 READ (2* 1 ) NNX 

READ(2*4> (SEGLX(I) *l=l*NNX) 

READ (2*1) ( NSEGX ( I ) » I = 1 ♦ NNX ) 

NR«1 

DO 90 1=1 *NNX 

DL ( I ) =SE6LX ( 1 ) /NSEGX ( I ) 

90 NRbNR*NSEGX(I) 

J*1 

TL=SE6LX(J) 

00 100 1=1 »NR 
IF(I.EQ.l) 60 TO 85 
95 IF (XCOROCI-1) .LT.TL) 60 TO 105 

0=j*l 

TL«TL*SE6LX(J) 

GO TO 95 

105 XC0RD(I)«XC0R0(I>1)*DL(J> 

GO TO 100 
85 XCORD(I)=0. 

100 CONTINUE 

61 IF (NC)63*64»62 

C CALCULATION OF Y COORDINATES IF MESH SPACING IS CONSTANT 

62 DV=THETA/(NC-1> 

DO BO 1=1 »NC 
IF(I.EU.l) GO TO 75 
YCORD ( 1 ) »YC0R0 ( 1-1 ) *DY 
60 TO 80 

75 YCORD(i>«0. 

BO CONTINUE 



non 


GO TO 120 

C READING OF Y COORDINATES IF SPACING IS VARlAbLE 

63 NC*-NC 

RE AD ( 2*4 ) ( YCORD ( 1 ) * 1* I *NC) 

GO TO 120 

C CALCULATION OF Y COORDINATES IF SPACING IS CONSTANT *ITHIN EACH 

C SEGMENT dUT VARIES FROM SEGMENT TO SEGMENT 

64 READ 1 2*1 )NNY 

READ (2*4) (SEGLY ( I ) * 1 = 1 «NNY ) 

READ (2.1) (NSEGY ( I ) » 1*1 *NNY) 

NC*1 

DO 110 1*1 *NNY 

DC ( I ) *SEGLY ( I ) /NSEGY ( I > 

110 NC*NC*NSEGY(I) 

J*1 

TC*SEGLY(J) 

DU 120 1*1. NC 
IF(I.EO.l) GO TO IIS 
125 IF(YCORDd-l).LT.TC) GO TO 130 
J*J*1 

TC*TC»SEGLY(J) 

GO TO 125 

130 YC0RD(I)*YC0R0(I-1)*UC(J> 

GO TO 120 
115 YCORD(I)*0* 

120 CONTINUE 
C WRITE (3*1) NR.NC 
N«NLDP-1 

C CALCULATION OF INCREMENTAL VSD » PN . WA 
DO 140 1*1 *N 
DVSD ( I ) * VSD ( I ♦ 1 ) •* VSD ( 1 ) 

IF(LP-1)141»142*142 

141 DPN ( I ) *PN ( I ♦ 1 ) -PN ( I ) 

GO TO 147 

142 1F(PN(I).EU'O.Q.OR.PN(I»1).EU.O*U) GO TO 143 
GO TO 141 

143 DPN(I)*0.0 

147 IF (LA-1 ) 144*146*146 

144 D*A(I>*WAd«l)-WA(I> 

GO TO 140 

146 1F(UA(1).EQ.O.O.OR.WA(I+1>*EQ.O*0) GO TO 148 
GO TO 144 

148 OMA ( I ) *0 • 0 
140 CONTINUE 

WH1TE(3*14) 

WRITE (3* 15) (DVSD( I ) *DWA (1 ) *DPN( 1 ) ♦ 1*1 *N) 

CALCULATION OF MAX PRESSURE AND WETTED ANGLE AT X STATION IN MESH 
J*1 
L*1 

DO 150 1*1 »NH 
IF(I.EO.l) GO TO 135 
IF (LP“1 ) 145*186*186 

145 lF(XCORDd) *LE*VSD(J*1 > ) GO TO 155 
U*J»i 
GO TO 145 

155 XPN ( I ) *PN( J) ♦ (XCORD( I ) “VSD( J) ) # DPN( J) /DVSD ( J) 

GO TO 187 

186 IF(1.LT.NR.AND.PN(J*1) .GT.0.0) GO TO 305 
XPN (I ) *PN ( J* 1 ) 

GO TO 187 

305 IF ( VSD( J+l ) -XCORD (I ) ) 1V6»1V6.I84 
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196 J=J*1 
GO TO 305 

166 IF (PN ( J) ) 155 ♦161*155 

161 XPN(I)*0.0 
00 TO 167 

135 XPN(I)=PN(I> 

AWA ( 1 ) *WA ( I ) 

GO TO 150 

187 IF (LA-1 >168* 169* 189 

188 IF (XCORD(I) .LE.VS0(L*1> ) GO TO 193 

l*l* l 

GO TO 168 

193 AKA ( I) *WA (L ) ♦ ( XCORO ( 1 ) -VSU (L > ) *DWA (L ) /OVSD (L) 

GO TO 150 

189 IF (I.LT.NH.AND.WA(L»1) .GT.0.0) GO TO 310 
AwA(I)*WA(L*l> 

6^ TO 150 

310 IF ( VSD(L*1 ) -XCORO ( I ) ) 197 » 197.191 

197 L*L*1 
GO TO 310 

191 IF (WA (L) ) 193. 192* 193 

192 AWA ( I ) *0 *0 

150 CONTINUE 
WRITE (3. 16) 

WHITE (3* 15) (XCORO (I) . aPN ( I ) . A wA < 1 ) .1*1. NR) 

CALCULATION OF RL AT EACH X STATION 
L*1 

DO 151 1*1 .NR 
IF(LP-l) 162.163.163 

162 IF(I.EO.l) GO TO 152 
IF(I.EU.NR) GO TO 153 

166 RL(I)*(XPN(I«1>*XPN(I) ) * (XCORU ( !♦! > -XCORO ( I ) >/6.» (XPN(I) ♦XPN(I-l) ) 
1 * ( XCORO ( 1 ) -XCORD ( I - 1 ) ) /6 • 

GO TO 151 

152 RL(I)*(XPN(I«1)*XPN(I) )MXCORU(I + l)-XCORD<I) )/6. 

L*L»1 
GO TO 151 

153 RL ( I ) * (XPN( I ) *XPN( 1-1 ) )* (XCORO ( 1 ) -XCOKD( 1-1 ) ) /6* 

GO TO 151 

163 IF(XPN(I))156. 156.156 
156 IF(L.EU.l) GO TO 152 

IF(I.EU.NR.OR.XPN(I»1).EG.O.O) GO TO 153 
GO TO 166 

156 RL(I)*0.0 

151 CONTINUE 

C CALCULATION OF XWA AT EACH X STATION 
L*1 

00 159 1*1. NR 
IF (LA-1 ) 171.172*172 

171 IF(I.Eb.NR) GO TO 157 
IF(AWAd).EQ.O.O) GO TO 177 

176 XWA ( I ) ■ ( AWA ( I ♦! ) +AWA ( I ) *AwA ( 1-1 > *AWA ( 1 ) ) /6. 

GO TO 159 

177 IF (AWA ( 1*1 ) -AWA ( I ) ) 157.157.158 

157 XWA ( I ) * (AWA (I-1)+AWA(I) )/2. 

GO TO 159 

158 XWA(I)«AWA(I*l>/2.»AWA(l>/2* 

L«L*1 

GO TO 159 

172 IF (AWA (I) 1176*176.173 

173 IF(L.EQ.l) GO TO 156 
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IFd.EU.NR.OR.AWA(Id) .EQ.0.0) GU TO 157 
GO TO 17b 

174 XWA(I>*0.0 
119 CONTINUE 

UNITE (3*22) 

WRITE (3* 15) (XCORD(l) *XWA(I> *RL(I) f I*1*NR) 

CALCULATION OF INCREMENTAL WSR * HPR * CPR 
M*NCDP-1 
00 180 1*1 *M 
DwSR ( I ) *WSK (1*1) -WSR ( I > 

OHPR ( I ) *HPR (1*1) -HPR ( 1 ) 

OCPN ( I ) *CPR II ♦ 1 > -CPR ( I ) 

180 CONTINUE 
WRITE (3* 17) 

WRITE (3* IS) (OWSR ( I ) tDiiPR ( I ) tDCPR ( I ) * 1*1 *M) 

CALCULATION OF CWSR » PCH * PL FOR LACh NOOE POINT IN MESH 
00 160 1*1 tNR 
K*1 

00 160 J*1 »NC 

IF(VCORD(J>.GT.XWA(I).OR.XWA(I).EQ.O.) GO TO 165 
CWSR (I * J) *YCORO( J) /XWA 1 1 > 

170 IF (CWSR ( I » J) .LE.wSR (K* 1 ) ) GO TO 17S 
K*K*1 
GO TO 170 

175 IF(XWA(I).LT.90.0> GO TO 18S 

PCR ( I * J> *CPR (K) ♦ (CWSR ( I * J) -WSR (K) ) *0CPH ( ' ) /DWSR (K) 

GO TO 190 

165 PCR(If J)*HPR(K)MCWSH(If J)-WSR(K) ) *DHPR (K) /DwSR (K) 

190 PL ( I f J ) *PCR ( I * J I *RL ( I ) 

GO TO 160 
165 PCR(ItJ>*0. 

PL(I.J)*0. 

160 CONTINUE 
WHITE (3* 18) 

WRITE (3*6) ( (XCORO(l) f YCORO (J) fCWSRdf J) fPCRdf J) .PL(I.J) *J»1.NC)*I 
1*1 *NR) 

CALCULATION OP ANL * AVL » TVL FOR EACH Y STATION ALONG X COORDINATE 
S*A*R 

00 200 I « 1 * NR 
TVL(I)»0. 

DO 200 J*1 »NC 
IF(J.EO.NC) GO TO 230 

IF(J.EG.l*ANO.XWA(l) .6E.YC0RD1 J»1 »> GO TO 205 
IF(XWA(I).LT.YCORO(J*l>.AND.J.EQ.l) GO TO 225 
IF(XWA(I).LE.YCORD(U).ANO.PL(i»J*l).EQ.O.O> GO TO 230 
IF(PL(IfJd>.EQ.O.O.AND.XWAd>.GT.YCORD(d)> GO TO 235 
ANL (I* J)*S*( ( YCORD (Jd)-YCORD(J) > * (PL (I f J»1 > *PL (I f J> >/(4.*C0S(A # ( ( 
1YCORO ( J* 1 > ♦YCORD( J) 1 /2 • -YCORD (J) >)>♦ (YCORD <J> -YCORO (J-l >)• (PL ( I tj> 
2*PL(I. J-l) )/(4.*COS(A*(YCORO(U)-(YCORO(J)*YCORO(J-l) >/2.) ) ) ) 

GO TO 215 

205 ANL (I f J) *S*( (YCORD (J« „ ) -YCORD (J) ) • (PL ( I f J*1 ) *PL ( I f J) ) /♦• */COS ( A* (Y 
1CORD (Jd> -YCORO (J)>/2.) 

GO TO 215 

225 ANL ( 1 1 J) *S* (XWA ( 1 ) -YCORD (J) ) • (PL ( I f J) '2. ) • ( 1 (XWA ( I > -YCORO < J) ) / (2 
1 •*( YCORD (Jd) -YCORO (J) ) ) ) /COS (A* (XWA ( I ) -YCORD (J) )/2.) 

60 TO 215 

230 ANLdf J)*S* (XWA d> -YCORO (J-l) ) • (PL ( I * J-l ) /2* ) * < XwA ( I ) -YCORO ( J-l ) )/ 
1 (2.* (YCORO ( J) -YCORD (J-l ) ) > *COS ( A* ( YCORO ( J) - (XWA ( I ) ♦YCORO (J* 1 ) ) /2. > 
2) 

GO TO 21s 

235 ANL (I fJ) *S* (YCORD (J) -YCORD (J-l ) ) * (PL ( I * J) ♦PL (If J-l ) 1 / (4»*C0S ( A*( VC 
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10RD ( J) - (YCORD ( J) ♦YCORO l J-l ) >/2.) ) ) ♦ (S* (XwA ( i ) -YCORD ( J) )*(PL(I * J>/2 
2.)*(1 .-(XwA(1)-YC0R!v(J> )/ ( 2.* (YCORD (J*l> -YCORD (J) ) ) ) >/C0S(A*( ( AM A ( 
31) ♦YCORD < J) > /2. -YCORD ( J) ) ) 

21b AVL(I.J)*ANL<I*J>*COSU*YCORD<J> ) 

TVL(I)*TVLU)^AVL(I*J) 

200 CONTINUE 

WRITE (3*10) 

WRITE (3*6) ((XCORD(I) , YCOKl) (J) * ANL ( I * J) • AVL ( I « J) « T VL ( 1 ) * J*1 *NC ) » 1 = 1 
1 * NR ) 

PUNCHtO OUTPUT OF PRESSURE LOAOS AT NOUt POINTS 
IF (KO-l)405.42b*96U 
♦OS DO 400 1*1»NR 
00 400 J*1 *NC 

IF (ANL(1*J) .tO.U.O) 60 TU COO 
IF(J.EU.NC) 60 TO 435 
ANL ( I * J ) *- ANL ( I * J ) 

60 TO 42'v 

435 ANL (I*J)*-ANL(I*J)/2. 

60 TO 420 

420 PUNCH 25* ANL ( I ♦«# * I * J«2 
400 CONTINUE 
60 TO 650 

C CALCULATION OF NORMAL STRAP REACTION LOAOS 
960 DO 900 1*1 * NR 

IF(TVLd) .EO.O.O) 60 TO 905 
STRAP (I )*TVL( I)/SIN (A* (160. -ANGLE) ) 

REACT ( I ) *-STRAP ( 1 ) /R 
60 TO 900 
905 REACT (I)*0.0 
STRAP (1)«0.0 
900 CONTINUE 

DO 950 1*1 *NR 
DO 950 J*1.NC 

IF (REACT (I) .EQ.C.O) Go 10 950 
IF ( J.EQ.NC) 60 TO 945 
IF (YCORO(J) .GE. ANGLE) 60 TO 935 
ANIL(I*J)«P.O 
60 TO 950 

935 IF(YCORD(J>.tO. ANGLE) 60 TO 930 

ANIL ( I » J) *S*R£ACT (!)•( ( YCORO ( J*1 ) -YCORD ( J) ) / (2.*CUS ( A* ( ( YCORO (U*i ) 
1 ♦YCORD (J) ) /2. -YCORD ( J) ) ) ) ♦ (YCORD ( J) -YCORD (J-l > ) / (2.*COS ( A* ( YCORU ( J 
?)- (YCORO (U)* YCORO (J-l) 1/2.)) ) ) 

60 TO 140 

930 ANIL ( I »o) *S*R£ACT ( 1 ) * ( YCORO (J*l ) -YCORD (J) ) / (2.*COS ( A* ( YCORO ( J*1 ) -Y 
1CORO ( J) ) /2. > ) 

60 TO 960 

945 ANIL ( I » J) *S*REACT ( I ) * (YCORO ( J) -YCORO (J-l ) ) / (2.*COS ( A* ( YCORD ( J) -YCO 
lR0(J-» ) )/2.) > 

940 PUNCH 25*ANIL(I*J) *I*J«Z 
950 CONTINUE 
60 TO 40 s - 

C CALCULATION OF VIL • ANIL • ATIL FOR EACH Y STATION 
425 Pl«3. 14159265359 
HC«THETA*PI*R/lttO. 

DO 600 1*1 » NR 
T7IL(I>*0. 

00 600 J*1»NC 

IF(TVLU). EO.O.O) 60 TO 620 
IF(J.EU.l) 60 TO 605 
IF ( J.EO.NC) 60 TO 610 
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VIL(I*J>=S*<YC0RD(J«1)-YC0R0(J-1> >«TVL (I)/(2.*HC> 

60 TO 615 

605 VIL(I«J)*S*(YC0RU<J*1)-YC0H0<U) >*TVL(1)/(2.*HC> 

60 TO 615 

610 VlLlI*J)*S*<YCORb(U)-YCOKO(J~l> >*TVL(I>/(2.*HC> 

615 ANlL(I.J»=VlLU.J>*COSU*rCORtMJ) > 
ATIL<I.J)=-VIL(I»J>*S|N<A*YCOKO(J> > 

60 TO b25 
620 ANIL ( 1 ♦ J) *0.0 
ATIL(I*J)*0.0 

625 TVlL(I)=TVIL(l)*VIL(l,J) 

600 CONTINUE 

IF (K0)650*650*b40 
640 WHITE (3*23) 

UNITE 0*61 ( (XC0RD(I)*YC0HD(J> * VlL (I * J) »ANIL < I » J) »ATIL(I*J> *J*1»NC> 
1*I*1»NH> 

650 STVL*0« 

STVLXC*0* 

STVIL=0. 

CALCULATION Of HALf STYL * STVLAC . TVLAC » 5TVIL 
00 250 l*I*NR 
TVLXC II) *TVL I I » *AC0RD ( I > 

STVL*STVL«TVL(1) 

STVIL*$TV1L*TVILCI> 

ST VLXC=ST VLXC^TVLXC ( 1 ) 

250 CONTINUE 

UNITE (3*20) 

UNITE 13*5) (XCORD(I) *TvL(l> *TVLXC(I> *I-1»NN> 

CALCULATION Of TOTAL PRESSJHE LOAD ON VEHICLE AND CENTtN OF PRESSURE 
CP*STVLXC/STVL 
S2T VL*2 • *ST Vl 

WRITE (3*21) ST VL* ST VLXC»S2TVL*CP 
PUNCH «6*S2TVL*CP 

INERTIA L0A0IN6 WALANCES TOTAL VERTICAL PRESSUKE LOAD CHECK 
UB*STVL-STVIL 
WRITE 13*24 HR* 

IF (KO~l >670*660*670 

CALCULATION OF NET NORNAL A NO TAN6ENTIAL LOADS AT A MESH POINT 
660 00 700 1*1 .NR 
DO 700 J»1*NC 

If (TVL(I).EO.O.O) 60 TO 700 

IFCJ.EO.NC) 60 TO 710 

ANL < I t J) *-ANL (I* J) ♦ANIL ( I t J) 

A7IL(I»J)*ATlLtI*U> 

SO TO 700 

710 ANL ( I • J) *1 «*ANIL ( I * J) -ANL ( I » J) /2* 

ATILtI* J)*1»*ATIL(I*J> 

700 CONTINUE 
WRITE (3*26) 

WRITE (3*27) ( (XCORO(I) *YC0RD(JI *ANL(I*U) *ATIL(I*J) *J*1»NC) *I*I»NN) 
PUNCHED OUTPUT Of NET PRESSURE AND INERTIA wOADS. 

00 600 1*1. NR 
00 600 U*ltNC 
PUNCH 2$. ANL J)*I»J*Z 

punch 2s*at; >j)*i«j*y 

600 CONTINUE 

670 IF(T.EO.TNT) 60 TO 500 
60 TO 29 
500 CALL EXIT 
END 
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LISTING Or INPUT DATA CARDS FOR THE 3 SUPPLEMENTAL PROBLEMS 


3.0 


3 10 

1 1 

0*0 

0*0 

6*95034 

60*0 

0*0 

1*0 

0*22222 

0*93969 

0*44444 

0*76604 

0 *66666 

0 *S 

0*08666 

0*17365 

25*0 

1*0 

21 19 


3 10 

1 1 

0*0 

15*0 

6*95834 

0*0 

0.0 

1*0 

0*22222 

0*93969 

0*44444 

0*76604 

0*66666 

0*5 

0*86888 

0*17365 

25*0 

2*0 

21 19 


4 10 

1 1 

0*0 

0*0 

5*21675 

60.0 

0*0 

1*0 

0*22222 

0*93969 

0*44444 

0*76604 

0*66666 

0*5 

0*86668 

0*17365 

25.0 

3*0 


21 19 


0 


0*0 

3.47915 

0 . 1777 * 

0*0 

0*11111 

0*0 

0*33333 

0*0 

0*55555 

0.0 

0.77777 

0*0 

1.0 

60*0 

60*0 

0 

1*0 

3 . 4791 b 

0*0 

0*0 

0.11111 

0*0 

0.33333 

0*0 

0.65555 

0*0 

0.77777 

0*0 

1.0 

60.0 

60.0 

0 

0*0 

1*73956 

0*17776 

6*95634 

0*0 

0*11111 

0*0 

0*33333 

0*0 

0*55555 

0*0 

0.77777 

0*0 

1*0 

60*0 

60*0 


16.0 

1.0 

0 . 984*1 

0*0 

0.86603 

0*0 

0.64279 

0*0 

0.34202 

0*0 

0.0 

0*0 

60.0 

635*0 


60.0 

0.17778 

0.98481 

0*0 

0.86603 

0*0 

0.64279 

0.0 

A . 34202 

0*0 

0.0 

0*0 

60.0 

835.0 


1 S .0 

1.0 

0.0 

0*0 

0.98481 

0*0 

0.86603 

0*0 

0.64279 

0*0 

0.34202 

0*0 

0.0 

0*0 

60.0 

635*0 


90.0 


90*0 


90*0 
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LISTING OF PUNCHED l UAL) CAHD5 FOH THE 3 SUPPLEMENTAL PPOBLtMS 


-1.24£. 

-2.230E.tfJ 

-1.522E.03 

-6.269E.02 

-2.692E»01 

-2.406E«03 

-4.423E*03 

-3.328E*03 

-1.751E*03 

-3.595E.02 

-2.223E«03 

-4.207E*03 

-3.521E*03 

-2.4 64E.03 

-1.2I0t*03 

-1.883E»02 

-2.018E.03 

-3.882E*03 

-3.43SC03 

-2.73IE*03 

-1.820E«03 

-8.402E.02 

-9.E47E«0l 

-1 .807E*03 

-3.509E.03 

-3.208£«03 

-2.729C03 

-2.094E.03 

-1.341C03 

-S.801C.Q2 

-4.688C01 

-1.S91E.Q3 

-3.110E.03 

-2.99iE.03 

-2.569E.03 

-2.127E.03 

-I.591E.03 

-9.832E.02 

-3.95iE.02 

-2.095E.01 

-1.373E.03 

-2.697E.03 

-2.553C.03 

•2.321E.03 

-2.008E.03 

-1.626E.03 

•1.188E.03 

-7.084E.02 

-2.632E.02 

-8.241E.00 

-1.152E.03 


11 1 

11 2 

11 3 

11 4 

11 5 

12 1 

12 2 

12 3 

1. 4 

12 5 

13 1 

13 2 

13 3 

13 4 

13 5 

13 6' 

14 1 

14 2 

14 3 

14 4 

14 5 

14 6 

14 7 

15 1 

IS 2 

15 3 

15 4 

15 5 

15 6 

15 7 

15 8 

16 1 

16 2 

16 3 

16 4 

16 5 

16 6 

16 7 

16 8 

16 9 

17 1 

17 2 

17 3 

17 4 

17 5 

17 6 

17 7 

17 8 

17 9 

17 10 

18 1 


66 



-2.271£*03 

lb 

2 

1 

-<?• 173fc>03 

lb 

3 

i 

*2.0 13E ^03 

lb 

4 

1 

-1.79bt^Q3 

lb 

5 

1 

-l.S28t*03 

lb 

b 

1 

-1.216E+03 

lb 

7 

1 

-8.707£*02 

18 

8 

1 

-S.00b£^02 

18 

9 

1 

-1.702E+02 

lb 

10 

1 

-2.631EOO 

lb 

11 

1 

-9.298E*02 

19 

1 

1 

-1.836t^03 

19 

2 

1 

•1 .769E*Q3 

19 

3 

1 

•1 *6b0E«03 

19 

4 

1 

-l.bl3E*03 

19 

5 

1 

-U331O03 

19 

b 

1 

-1.118fc>03 

19 

1 

1 

-8. 785E+02 

19 

8 

1 

-6. 177002 

19 

9 

1 

-3.4l6£*02 

19 

10 

1 

-1.0b4£#02 

19 

11 

1 

-b.730£-01 

19 

12 

1 

-7.068E+02 

2(1 

1 

1 

-1.398£^03 

20 

2 

1 

-1.3b4E*Q3 

20 

3 

1 

-1.285003 

20 

4 

1 

•1 • 191E+03 

20 

5 

1 

-1. 0746*03 

20 

6 

1 

-9.332E*02 

20 

7 

1 

-7.734E*02 

20 

8 

1 

-S.990E*02 

20 

9 

1 

-4.131E*02 

20 

10 

1 

~2. 189E*02 

20 

11 

1 

-6.102E*01 

20 

12 

1 

-5.000E-02 

20 

13 

1 

•2.976£*02 

21 

1 

1 

-S. 891002 

21 

2 

1 

-b.721E*02 

21 

3 

1 

->5.4b4E*02 

21 

4 

1 

-b.089£*02 

21 

b 

1 

-4.62bE*02 

21 

6 

1 

-4.071E*02 

21 

7 

1 

-3.44bt*02 

21 

8 

1 

-2.760E*02 

21 

9 

1 

-2.0236*02 

21 

10 

1 

-1.24bE*02 

21 

11 

1 

-b.l24E*01 

21 

12 

i 

-3.36bE*00 
252742. 17 

21 

13 

l 

61b. 94 

-1 .2426*03 

1 

1 

1 

-2.2306*03 

1 

2 

1 

-l.b22E*03 

1 

3 

1 

-6.2696*02 

1 

4 

1 

-2.6916*01 

1 

5 

1 

-2.4066*03 

2 

l 

1 

-* .4236*03 

2 

2 

1 

-3.3286*03 

2 

3 

1 

•1 .7516*03 

2 

4 

1 

-3.5946*02 

2 

5 

1 

-2.2236*03 

3 

1 

1 

-4.2076*03 

3 

2 

1 
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-3.*>21t*03 3 3 
-2.46*E*03 3 4 
-1.21CE»03 3 b 
-1.883E*02 3 b 
-2.0I8t*03 4 1 
-3.882t*03 4 2 
-3.435E*03 4 3 
-2. 731E*03 4 4 
-1.62ut*03 4 b 
-8.4Q2E*02 4 b 
-9.b47t*01 4 7 
-1 .607E+03 b 1 
-3.S09E«03 b 2 
-3.208E*03 b 3 
-2.729E*03 b 4 
-2.094E*03 b b 
-I.341E*03 b b 
-S.801E*02 b 7 
-4.b88E»01 b 8 
-1.591E403 b i 
-3.U0t*03 b 2 
-2.901E*03 b 3 
-2.5b9E.403 b 4 
-2.127E403 b b 
-1.591E*03 b b 
-9.d32E*02 b 7 
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